ARTIFACT SHEET 

Enter artifact number below. Artifact number is application number + 
artifact type code (see list below) + sequential letter (A, B, C ...). The first 
artifact folder for an artifact type receives the letter A, the second B, etc.. 
Examples: 59123456PA, 59123456PB, 59123456ZA, 59123456ZB 



Indicate quantity of a single type of artifact received but not scanned. Create 
individual artifact folder/box and artifact number for each Artifact Type. 



CD(s) containing: 

computer program listing 
Doc Code: Computer 
pages of specification 
and/or sequence listing 
and/or table 
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Doc Code: Artifact Artifact Type Code: U 
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Doc Code: Artifact Artifact Type Code: C 
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Doc Code: Artifact Artifact Type Code: F 

Video tape(s) 

Doc Code: Artifact Artifact Type Code: V 

Model(s) 

Doc Code: Artifact Artifact Type Code: M 

Bound Document(s) 

Doc Code: Artifact Artifact Type Code: B 

Confidential Information Disclosure Statement or Other Documents 
marked Proprietary, Trade Secrets, Subject to Protective Order, 
Material Submitted under MPEP 724.02, etc. 
Doc Code: Artifact Artifact Type Code 
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Doc Code: Artifact Artifact Type Code: Z 
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(54) Method and apparatus for finding and selecting a desired data item from a large schedule 
of data items using a TV set and a controller similar to a TV-remote-control 



(57) An apparatus and method for presenting a 
viewer with an overall representation of the present 
number of entertainment programs available for selec- 
tion given one week of program schedule data for 300 
or more channels and one or more filtering criteria to 
limit the number of items represented in the overall rep- 
resentation. Sequentially applied filters will filter the 
group of program schedule data items that has at least 
100 : 000 half hour time slots offered by 300 channels 
each week into a smaller subgroup where individual 



consideration of each item of the subgroup can be made 
in a reasonable time. A set top box drives the display of 
overall representations or results of filtering criteria on 
a commercial TV set. Once a reasonable sized sub- 
group is obtained, other displays provide specific infor- 
mation of the program offerings of the subgroup. Selec- 
tion of the filtering criteria and selection from within a 
subgroup is interactively made by a viewer through the 
use of a controller that looks and operates very much 
like a TV remote control. This makes the interaction fa- 
miliar, easy and predictable. 
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Description 
Technical Field 

The invention concerns a method and apparatus for subjecting a large schedule of data items having multiple 
attributes to consecutive selection criteria in order to reduce the number of individual programs to a manageable group 
which can be visually searched for a desired data item having a selected subset of the attributes, and more particularly 
to an apparatus and method which use an interactive control having directional buttons and a select button that are 
used in conjunction with $n interactive display viewed on a normal television set to select the desired data item. 

Description of the Prior Art 



Presently there are known methods for reducing a large quantity of data into a manageable set of data which can 
be visually searched for a desired item by a decision maker One example of such a large quantity of data is a directory 
is of a fixed drive of a computer system. Methods implemented through interactive graphical user interfaces for personal 
computers and workstations display and reduce disk drive directories to root directory displays which typically show 
root level files and one or more branch subdirectories for the user's selection. Upon selection of a subdirectory, usually 
by a mouse, the display typically shifts showing files of the selected subdirectory and sub-subdirectories for further 
selection. The subdirectory display is often too big to fit on the screen, so interactive scroll bars are typically provided 
so the display may be controlled by a mouse. Using the mouse and the scroll bars, a user may work down the directory 
tree structure until the desired file is found. Such graphical user interfaces are common for computers and monitors 
where visual definition is typically at least 640 x 480 pixels for each display Such techniques might be used in homes 
to access databases of useful information, such as airline schedules, television programming schedules and movie- 
on-demand catalogues. Unfortunately, each home does not have a computer or work station with 640x480 pixel defi- 
nition which could take advantage of such existing databases. Further, the NTSC television set which almost every 
home has in its living room has relatively low viewing definition compared to 640 x 480 pixels or more per screen 
definition of computer monitors. Moreover, the typical home television set is not connected to a mouse, which is not 
an appropriate pointing device for the living room, rather most television sets have controls on control panels and/or 
on a remote controls. If just a fraction of these home television sets were used to find and select airline ticket reserva- 
30 tions, programs to watch on 300 hundred or more channel cable television services, or pay-per-view movies from a 
vast collection, the profitability of the service providers and the satisfaction of the users would both be improved. The 
300 plus channels mentioned, may use any type of transmission scheme that will deliver information via a cable or 
wireless path and includes but is not limited to time division multiplexed channels, frequency division multiplexed chan- 
nels and packet data multiplexed channels. 

One known approach for the TV programming schedule is to display the presently showing programs along with 
the next subsequent programs for the next hour or so, on what is referred to as a preview channel. Because this is 
more information than can be legibly displayed on one television screen at once, the preview channel display often 
scrolls through all the channel offering for the present time and the near future. For a sixty channel system, one complete 
scrolling takes about three minutes. At such a rate, a one hundred channel cable service would take five minutes and 
the future three hundred plus channel cable services would take 15 minutes. Needless to say, three minutes is a long 
time, but acceptable because breaks between programs are about that long. Five and fifteen minutes time periods 
though represent a substantial portion of a 30 minute program and are simply too long to expect a TV viewer to watt. 
The alternatives of speeding up the scrolling rate or using smaller size letters for descriptions are not practical either 
because either of these actions reduces the ability of the viewer to read and understand the schedule. Thus, there is 
a need in the art for a method and apparatus that allows a viewer to quickly find and select a desired data item from 
a large schedule, in this case a TV program for viewing from a TV programming schedule for 300 plus channels over 
the ensuing hours or even days. There is a similar need lor a method and apparatus, very similar to the TV program 
selector, for finding and selecting a movie to order from movies-on-demand, or an airline fiight(s) for a trip. It would 
further be desirable to use a method similar to the TV program selector to find and select a file in 'storage assets 
so accessible by the apparatus to be executed, updated or deleted as part of file maintenance. 

It is an object of the present invention to provide a view of a large schedule of data items and interactive selections 
of subgroups of the large schedule of data items in order to arrive at a screen display with sufficiently small number of 
items and sufficiently legible descriptions of each item to provide a viewer with an opportunity to make a reasoned 
selection therefrom. 

It is another object of this invention to provide a method for interactively selecting a data item from a large schedule 
of data items by means of sequentially applying different filtering criteria using an interactive control having an operation 
appropriate for use with a television set. 
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Summary of the Invention 



! bi6C,S ™ y bS 8ChieVed by Pr ° Vidi ^ a ™thod for a home 
m el hod includes a step T^Lt^eSoe ^hedulTof 2£ STS * ^ T h8Vin9 mU ' ,ip,e a " ribu,es The 

r- a 9 r^^^^ 

resulting subgroup of ,he schedute S a ems ?s disSed S h * ^ ** '° inleraC "' e VieWer inpu,S " The 
se.ectsa^aitem,^ 

points means orVpeSinq a SaZ fnfhfVT 3 SVS,em **** means and in,eractiv * movabte 

^fu-lncl^.^^i^SulJl^ mean r maki ° 9 3 Se ' eC,i0n '» 3 SpSCi,ied ,OCation This 
of a subgroup ^.r^^^l,^^^^ " ,h ° diSplay means and is responsive to selection 

subgroup speX: meansCd^^^^ SUb9 '° Up S > eci ' ied by *• se.ecled 

in the display means: and group item select f mein^nM,! , * belon 9'"9 to at leas, a portion of the subgroup 
in the display in response 10^.^^21,7^ 9 " by S6leC,in9 ,he presentation thereof 

viewerC,^ ^ b * Sieved by providing a method for a 

300 indrWdua, channe. it a ^^..^a'S^'^ T™ 9 '° r 31 ,eas < 

a database format in order to expedi e TLTb, Ion™ The / e ° eived P ro 9 ram schedul « data is stored locally in 

Brief Desc ription of the Drawing ~ 

*""* a - ,op - ,o a ta » 4. 

FIG. 2 is a simplified block diagram of the set top box. 
FIG. 3 is a pictorial of a controller as shown in FIG. 1 
FIG. 4 is a pictorial of a top most selection interactive display. 
FIG. 5 is a pictorial of a second level selection interactive display. 
FIG. 6 is a pictorial of a third level selection interactive display. 
FIG. 7 is a pictorial of a first level selection query display 
FIG. 8 is a pictorial of a second level selection query display 
FIG. 9 is a pictorial of another third level selection query display. 

HO. 10 ,s a pictora. of a disptey showing a subgroup of programs meeting the Sports. All and On Now sorting 



criteria 



HQ 3 'it I ? i3 M a diSP ' ay ShOWin9 3 SeC ° nd ,evel se,ec,ion impaction display, similar to F.G 5 
reducS rlpr^tSrs " * ^sy with very man'y program data ifems shown in 

" 5 P.r ! i IS 3 PiCt0ria ' ° f 3 third ,evel se,ec,ion WW display, similar to FIG 9 

items 8 P,Ct ° ra ' °' 3 ,WO - dimensional -teractive grtf disp.ay fiitered down to a manageable number of data 

FIG. 16 is a pictorial of a first alphanumeric interactive display. 

5 - 2 ^x^:^rz^r^ ar ~ * * a - 

^^^^Z^TZ^ 0 d * play "" h ,09teal ,h " a — — - - « 
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Detailed Description 



Referring now to FIG. 1. a television set (TV) 10 is connected to set top box (STB) 12 via interconnecting cable 
14 STB 12 i also connected to cable 16 which carries at least one cable program. The TV 10 is any standard TV 
s such as an NTSC. a high definition, or some other standard commercial type for home use. A controller 20 is linked 
to STB 1 2 preferably v£ a free space optical link 22 for controlling the operation of STB 1 2 in order to select a program 

,0f V ReTrL, now to FIG 2. STB 12 will be described in greater detail. The STB 12 has a cable interface 30 that 
selects and converts the incoming signals on cable 16, whether they are digital signals, analog s.gnals. or packet 

io sfgnl s ^Sn^ «^o^W. wnh the TV 10. The cable interface 30 is connected by bidirectional bus 32 to 
cTu £. Bi-dKLa. bus 32 carries digital information recerved over cable 1 6 for use by CPU 34 and d.grta. .n ^formation 
transmitted from CPU 34 to cable interface 30. If cable 16 is a bi-directional cable, some of the informat.on from CPU 
34 will be processed through cable interface 30 to cable 16. 

t addition to bi-directional bus 32, CPU 34 is connected to ROM 38 and RAM 40 via a memory bus 36. ROM 38 

is contains an operating program that is executed by CPU 34 to provide most of the functionality of ^the STB 12^RAM 
40 among ottTer things provides storage space for intermediate results of the operat.ng program as executed by CPU 
34 RAM AO provides storage for data that is received from cable 16 and filtered in response to the operafcng program 
and vfewer inputs from controller 20 (shown in FIG. 1). If further storage is needed for data, larger RAM devices and/ 
Tmass storage devices such as disk drives, may be also connected bidirectional bus 32 (not shown). To receive 

zo Iwt tnput CPU 34 is connected to controller interlace 44 via bus 42, and to provide feedback to the viewer, CPU 
34 is connected to and drives STB display 48 via bus 46 with channel related information. 

F^3 illustrates a preferred embodiment of the controller 20. Controller 20 is designed to look and operas . hk. , a 
standard remote control of a TV or a video cassette recorder (VCR). Controller 20 has a numeric keypad 50 having 
number keyT^-9. Controller 20 has an up arrow 52. a down arrow 54, a right pointing arrow 56. a left pointing arrow 

* 58 a doubte up arrow 60 and a double down arrow 62. Controller 20 also has a select <✓) button <* « 

bu ton 66 and a query (?) button 68. All interactions with the interface provided by the present invention are controlled 
Various sequel of these 19 buttons of the controller 20. Further, the result of actuating one of these buttons ^ 
be similar the results of a similar action of a standard TV or VCR remote control, so its use will be fam.Lar. predictable 

,o "^JZSZZZSX* graphica, components used in the interface o, the present invention: those used 
by the viewer to select a desired data view or to apply a filler to the information being displayed, sue . as F G .4 . and 
those components used to actually display the information through which the viewer will P^^^^ ™ k J° 
selection of a specific item, such as FIG. 6. For example, the viewer might v.ew the schedule of TV program tor the 
next few hours (all channels), and filter the display to show only sports, basketball games in particular. These choices 
"alnnto the firs class. Once the display of all basketball shows tor the next few hours has been se.ectedthe ^wer 
may progress through it reviewing a text or video digest of each program as selected by the controller 20. Select on 
of a specific program would typically lead to an action such as videotaping the show or setting an alarm to remind he 
viewer that the desired program is coming up. The navigation and selection sequences to find and select the desired 
program are examples of the use of the second class of graphical components. ..„ ima , 0 ,„ 
P Note, that in both cases the viewer is required to navigate through multiple graphic displays >,n order tc .ultimately 
select a desired program The interfaces are kept conceptually and visually distinct in the mtert ace «» 
Present invention because they serve different purposes and the viewer is reminded of this by their appearance. In 
addi^n "he intorr^tion involved in the view selection components, i.e.. the first Cass, falls naturally into the form of 
n*T^™o7*on lists with complex substructure. In contrast, the data display, i.e., ^^^^ 
nents must be able to handle large schedules and arrays of information, which are essentially flat data with simple 

SUb AddSally there is a display component in most displays referred to as a 'flame', which functions as a status 
disp^Sme is used to give the viewer some context (what view am I displaying?), as well as a brief summary 
o the prls^ntTy selected item's characteristics (what item do I currently have selected?). ^^^J^J^ 
the item's full name and useful information such as program start and stop times. The frame will be described further, 

late Referring now to FIGs. 3 and 4, a top or beginning level display 400 of the viewer interface for use with controller 
20 as it appears on the viewer's TV 10 (shown in FIG. 1 ) during normal operation. It is depicted as a file card menu 
402 havfno a tab labeled 'Begin' On file card menu 402 are interacts buttons labeled Movies (on Demand) 404. 
55 SSL 406 ' Options 408 TV 410, TV Now 412, Last TV 414, Shopping 416. and Last Shop 418 which when 
selected by means of the controller 20 cause the next relevant display to be shown along with some sorting and/or 
«KerSg to be performed on the data stored in RAM 40 (shown in FIG 2). When the file card menu 402 first appears, 
an ^ct^ area where a selection may be made, is highlighted. This active area may be moved by actuating the arrow 
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l'9hted, a selection is made by actual the slZ ^ f l l^T"* hi * h, W* O^e an active area has beTn l h 
by actuating the ee.ec, button T?h e next^ p a v 5^* " "l? °" ™ bU,t0n 4,0 is -^^actlS" 
* over ayng of the display 500 over the display 4(2 ZoZ 22" 5 3ppearS This a PP^rance is a fog™. 

d.s Pte y .s appearing on the screen of the TV 1 0^sp^av S wi f V * ^ ViSib ' 6 ^ any '°9^a..y.ove May n a 
d.splays are canceled, i.e. by actuating me cancel ^xS.o^fi ^ * ^ aQain " a " of ,he Really overlay nq 

» possib.e for the viewer .0 work his or^e"wa?^ 
appropriate number* times. ay baCk to 400 by actuating the cancel (X) bu.tcTth e 

FIG. 5 shows a second level disDlav snn uw,^ ; . • 
to overlay and occlude a„ of «,e e^^^^^ ^^«« «*„u S02 W^m -TV", ^hich app^u. 

can be accessed are TV shows, such as d^Tse, e srt^ ^ 9 ' n ", The ">•■ TV «h-l the itemsma! 

shows, sports and so forth. Since movies andThoppl werl ^TT*- ^ Varie * show * 9ame 

grams may be filtered out in whole or in part. File c^rd menu 502 ^! , ^ ' ntera «»° buttons, these types of pro- 
's days 506. Coming Up 508, Weekend 510 and ^Irch 512 a , ™*ve buttons labeled On Now 504 Week- 
an active area ma. can be moved by the v^^S^J^T ,h ° " ,e card menu ^ «'e card menu SoThas 
62 of controller 20 (shown in FIG. 3) . Eacn of the in^a^e bu ^ bU " 0f1S 52 " 66 3nd doub,e a " ow button. 60 

causes a third level disptay shown in FIG. 6 .0 appear and ?a^~t?« *** * aC,Ua ' in9 ,he 8e,ect <'> °""on 64 

ReTringno ' f FIG 3 M6r ' n9 °' ^ ^ S, ° red " AM 

reduceVreprlsema^ G 6ol cfaTtete^^ ,ime Which in thi * "'^ration is 6:30 p m A 

representation 602 presents each program that ? ZSZStnJt. » T appearS in FIG 6 ™e rJoJorf 

may be gray shade coded .0 distinguish between news showl scirf £ " 8 T* CaSCaded Set of caids ^ cards 
mentary shows and so foftn ^ skj J 1 w^^ni^l, T drama,iC Sh ° WS ' COmed V sh <™ "on- 
sets, and a method and apparatus according to th 112!^ * be P reterab,e color- television 
reduced representation 602 is contemplated Thus ,.!L„ ,nven,,on us ">9 color to differentiated program tvoes in thT 
-How . sports program ,0 visually «^u£ZZ^^^.*~ '* duCed ^LSS^SS^ 

3rrOW 54 rSS P ec,ive, y move * selection ^dow^i ^ ^ T? 9 ,he SXample Shown U P a "°* 52 " 
reduced representation, up and down the reduced tJ££££ 'St oMh 2*1? Wider ,he i,ems dis P |a V ed in 
of the a ct,ve area along the reduced representation 602 is c^e dimen^ , ?™ SUbQrOUP in sin 9 ,e s,e P s 
he down arrows 62 move this selection window ^ re^Zu 'T^T^' " P ° f ^ The U P arrows 60 and 
^crements of s,x. The indrvidua. items visible and located wiSe s l , *^ ' he fedUCed re P^en.a«ion 602 in 
of s>x programs out of the reduced representation^ o„ Now ^ e h Se,ect, °" w,ndow 604 represent a further subgroup 
mow 604 is dispfcyed in larger form in a ^SS^SZ^TZ V* SUb * W > °' lhe 

form anows ,he viewer to read the titles of the SLIS? ™xt to reduced representation 602. This larger 
b haf co^ 90 ^ 0 ^ The visibte coding, i.e. g?ay 

between the various types of programming offered 9 ^ 9nd d,Splay 606 ,0 aid ,h « viewer differentiate 

Within selection window604and arid disDlav 60fi ara ^, 
portion. o» display 600. The actrve areas tSfSS 6 ° 7 ,,1a, hi9h,i 9 ht one rt ^ - th.«r respective 
52 and the Down arrow 54. When Up arrow 52 or a "wtl^ " ^ ° ,h6r in res P° nse to th « Up arrow 
or below the selection window 604 and grid disSavfiS ^ ^"' re ,He 3C,iVe areas 605 and 607 to move above 
theT S hf T n ^ iS ,OCa,ed -ithin%c«t P areas1o5 STfunST"* ^ Se ' eC,,0n Window 

RA^ 8 C H a : n0 ' nUmbSr ' and ,he exact «■« and Sop ? h ^ re^r^ e v^ f rma,, T• SUCh 38 « he TV channel <=•» «Hjn. 
RAM 40 and d.splaved in the top of a frame 610 of dSlaTSo 1 Z ? the P rOQramm 'n9 database stored in 
preview of eitherashort text description orabnS •* rt * ,t K) button 64 - actuated at this time a 

previewsarestoredinRAM40.Asecondse^^^ 

program m the active area 604 of reduced repre^nttionToJ ^^^^"^^•^•"•h^lighted 
arrow 52 or the down arrow 54 is actuated the SSl^l!? h, 9 hli 9 h,ed Brid disptey 606. If the up 

prev.ous previewed item is selected. The Jo^UonT^Z 1°' ^ pr ° gram rtem U P or down from the 
ZTJST ° P ° f dOW1 a,SO Ac,ua,io " of Se^tSS^T ,0P .° f ,famS 610 Wi " chanQ e «o the next 
d-spfey 600. The bottom of the frame 610 lists the charac.erSs 5 hi" ZZ~ ZT* " PreV '° US 2 
40^ If the query (?) button 68 is actuated, the grid d!spiv tte Lm t ^ P 7 6 °°' Whteh are also re,riev «d from RAM 
generalized help menu has many buttons as exolaiS h*. be fep,aced bv a S^eralized help menu Thhs 

ac, ~ Q STS? he,p menu is »~Sr!S P^^TTni", view bu,,on - ,f ,he J^^s 

Meferrtng now to RGs. 3, and 7 a selection of a h'^ious select (i.e. filter) view. 

a h.,p tu „ on 702 . . ^ S*-J^J fir in F ' G ' ' °" *^ "oo'h'ai 

uo, a oegin button 708. a favorites button 710. and a user 
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button 706 is actuated, display 1200 as snown in i-k>. ^ e M «*h Vonfi Weekdavs 1208 and 
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in a reasonable amount of time, so further filtering, either by a shorter time Deriod i » n„ ki 

com.ng up ,n the next 12 hours. As can be seen, the two-dimensional grid disp.ay 1500 c^Z^SSS^SZ 

STounT,' ^ SU,fiCien,, r Sma " ,0 feVieW 6aCh " em ""dMdurty h a reasonable time per i^a LTarS 
1502 around twc-d.mens.onal gnd display 1500 with the up and down arrows 52. 54 and/or the righTandte arrow! 

m-WnnTr 9 ^ 16 " 23 ' an ° th8r 3SpeCt °' ,he presenl invention wi » "° described In FIG 16 and the re- 

Z^^Te^T^lT ° nime r e,eC,ed ° ther ^ ,hS ° nS and 3 ha " n — - sot^vid by the On Now 

o! me select button 64 : This sequence would cause FIG. 18 to loaicallv overlav Firs 17 i n pir ^a * 7 
52 54 o ^evoad 50 « Zl^ TT* 2302 " be ^ by arrows 56. 58 and vertically by arrows 
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data is supplied via the cable 1 6. The program schedule data is either transmitted periodically and the STB 1 2 receives 
this program schedule data and stores it in RAM 40. Alternatively, all or part of the program schedule data could be 
dynamically requested and received by STB 12, which stores it in RAM 40. Program data such as this is commercially 
available from TVData, Inc. and other similar concerns. The data or records of the program schedule data are in a pre- 
arranged format, such as Microsoft Access or some other similar database format, to facilitate rapid storage, sorting 
and retrieval by CPU 34. Each record of a TV program has its date of appearance, its time of appearance, its title, its 
channel and/or network, its categorizations, and a textual or visual preview (if any). A listing of a prototype program 
that sorts, displays and interactively responds to a viewer's input is shown in the CPU program listing given below 
This listing is in Visual Basic programming language of Microsoft Corporation. 

The Visual Basic prototype program consists of a collection of forms/each form having its own set of event handlers. 
In this case, the only significant external events are button actuations because of the remote control interface. A frame 
form provides the background and information and status bars used by most of the individual displays. A rolodex form 
provides the menus. The other forms are mostly schedule or list displays of various kinds, including specialized varieties 
such as the alphanumeric selection list form. 

The control part of the program begins with a procedure which loads all forms and activates the frame and rolodex, 
i.e. the top display, to begin. Forms hand off control by setting a return code and hiding themselves, thereby activating 
the form directly beneath (usually the frame). Both the frame form and the rolodex form perform different actions de- 
pending on the value of the return code. The frame form's most common action is to activate another form, and much 
of the control flow of the application is handled by the frame form code. The rolodex form is used to display several 
different menu hierarchies, most importantly view selection and filter choice. 
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«»— COMIMC form code ««... 
Cpzior. Explicit 

^ Cor.. e t =PGAP . 4 -space bc^r. ci^ -^? 9 "V* ° f pro *"™ 

| ?r^-T 4widih - " 2 ~ f w d a^1 a ^ SCO seal* ) 

^ ,S "« -»«! C^e of display i 

00 55 D °r; Z|- 3 !f" A f ^ -«ir.c circe slot 

Oiir- rcwOf isec d~cL time sloc 

cstance becween , cops of , rows in =he sche<Jule 

50 A PP*>*Fiiter () ■ ■ • / 

•ii-er program data. Jc©«r>ii-.« i 6-iJ 

•aiso makes sure the n S ^ only the programs that match the CQ 

•and the DB 'i f d dir. ° f st * tio »s is correct ^ Sry ln £i l<=«rs(TV> 



As Integer 'counter 

Eise =o lorFleld . .^r- P'-^XX should be a variaole or const. „ ot 10 

cat ion « MaxSration 
^olorField * "Category- 



Zr.d z i 
For i 



- To NDays 



IDats UKrxlter . f i 1 ters i currDomair , 
« -x-erData.i, = ailDa ta Created 



Next i " • Alu * c « li >-Cr«««s n .p Sho erj 

-<5 Sr.d Sub 



S^cha-gesel .d As String, 
rer: = r.T.s -.he navigation according tc 



enforcing to -he r> • - 

50 ess rtS — -eger 'boolean 
s "* :nc ^r * scan ion 



s$ 
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Dim e 'FinishTS (end) 

Dim TS As Long 'time-slot 
Dir. F As snapshot 
Dim aDay As Integer 
Dim dist 'distance 

Dim best As Long. bestMark "as database marker 

•set info about current place in database 
current * f ilterData I currDay ) . 3ookmark 
to Sez F = fiiterData (currDay) 

s = F ( "Staticr." ) 
e = Ft "FinishTS" } 
TS = TScurrent 
aDay * currDay 
success = Faxse 
best = 9999 



-75 



2S 



30 



If d = -Right" Then 

•check immediate right 
F.MoveNext 
20 Zt Not ".EOF Then 

TS » Ft -StartTS" ) 

■success = same station and starts right after current program 
success * <F< "Station-) = s) And (TS 
End If 

If Not success Then 
•check all to right for -closest" 
F.MoveFirst 
While Not F . EOF 

If F t "FinishTS- ) > e Ther. 

disc = VDistHorizts, e, F r Station" ) , ?< "StartTS" ) ) 
If dist <= best Then 
'save best so far 
best * dist 
success = True 
bestMark = F . Bookmark 
End If 
End If 
F . MoveNext 

Wend 

Zt success Then 

'move to the best one 
F.3ookmark = bestMark 
TS * Ft "StartTS" ) 
End If 
End If 
Elself d = "Left" Then 

check immediate left 
F . MovePrevious 
If Not F.30? Then 

•success = same station and finishes right before current program 
success = (F(-Station-) * s) And : F C FinishTS" ) >» TS - II 
TS = Ft 'StartTS- J 
SO End If 
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Net success Then 
•check all co left for -closest" 
F . MoveFirst 
5 *A*hile Noc F.EOr 

It F(-3c.r=TS-| < Bmm,. - h> „ 

:keep best sp :far 
* best » dist 

success « True 
bestMark » F. Bookmark 
End If 
End If 
F. MoveNext 

'5 Wend 

: - success Then 

'move cc best one 
F. Bookmark - bestMark 
TS = FfStarcTS") 
End If 

End If ^ 
El self d » -Down- Then r£ 
'check all programs below cu-rert u O 

While Not F . EOF 4tRt 0a *' *««Pmg "closest- g 

-f F{ "Station" > > s Then 
25 F.-rxr^hTS-:, diSC ■ VDi -^«"«.. TScurrent. F ( "Station" ) , ?( - StartTS , , . 3 

If disc < best Then 5 
best = disc 
- success e True 

jo bestMark « F. Bookmark ^ 

End :f £ 
End If ^ 
F . MoveNext 

Wend CO 
If success Then UJ 
55 F . Bookmark « bestMark ^ 

TS = F{ "StartTS") 
End If 
Elself do - Up - Then 

^^VSr"" ab ° Ve CUrrent ° ne ' -closest" 
:f F( "Station") < s Then 

r.Tini.hTS-1, diSC ' VDistVe »' s - TScurrent. F ( "Station" : . F ( "StartTS" ) 

If dist < best Then 
best = dist 
success = True 



40 



45 



bestMark n .-.Bookmark 
End If 



so 



End If 

F . XcvePrevious 

Wend 

success Then 
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F. Bookmark * bestMark 
TS = F("StartTS" ) 
End If 
5 End If 

If success Then 

'update variables and display 

TScurren: - TS 

currDay = aDay 
10 DisplayProg \ 

Else 

'restore old position in dacabasse 
f ilterData (currDay) . Bookmark * current 
End If 
1S End Sub 

Sub DisplayProg ( ) 

'set current program info in info box 

'highlight the appropriate program shape m the display 
Dim F As snapshot 
20 Din msg As String 

Set F = filterData ( currDay) 

'set highlight 
shpProg O) .Visible * False 
selector .Visible = False 

Position shpProg(O), FCStarf), F \ " Finish" ) , F ( * Station " ) 
CPlace 0, selector, shpProg(O) 
shpProg 1 0) .Visible = True 
selector -Visible = True 

'message for info box 

msg = StationString(F ( -Station" ) ) i " - - & F( -Title*) i " " 
msg » msg & Format (F( "Start" ) , "h:mm AM/PM" ) 
msg » msg & " to • & Format t F ( "Finish" ) , "h:mm AM / ?M " ) 
Setlnfo msg, Color I F [color Field) Mod S) 
End Sub 

Sub DoPreview ( ) 

'Construct an appropriate preview message and display it 
Dim msg As String 

msg = "Station: " & StationString ( filterData (currDay t ( "Station" > ) 
msg = msg & Chr ( 13 ) & "Title: " & filterData (currDay* (-Title") * Chr (13) 
msg b msg & CategoryStr ing (( filterData i currDay M -Type" »i . 
( filterData (currDay) i "Category" ) ) I 

msg » msg k Chr (13) & "Time: " & Forrtat * filterData ( currDay ) * " Start - ) . "mmn d.yy 
h : mm AM / PM " ; 

msg = msg £ Chr(13) & " to - i Format ( fi IterData ! currDay M" Finish ") , H h:mm 

AM/ ?M" ) 

'show popup with preview message 
SO popup . Caption = msg 
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popup. Top * IblTiaie-::) .Top * 2 * lb^--.*i u w 
popup. Left * 2 Height 

popup. Width a slotsPerDay - 3 
popup. Visible = True 
inPreview = True 
Sr.d Sub 

^b Deselect I ) 

set selection ir.fo and go to TV 
}l "Jserstacion = f il terData (currDay) < -Station-) 
userSear-. = f i IterData , curr^ay, ( sta- - ? 
retumCode * TOT/ 
Me. Hide 
£nd Sub 

Sub Draw?r OS (colorlndex. star- finish 
Dim edge 

- s^rtT^ "-° P ° Siti0n ^ NSl0C P 
aayatart - startTime * currDay - l ^ 

L = ; start - dayStartl * 48 t 
25 R 3 ? finish - daystartl • 48 

clip shapes off at day boundaries t 

x f - < 0 Then L « 0 <; 

« a > slotsPerDay Then R = slotsPerDay — 

place m correct day, with snuii l ~ 1 . 

ed„e . .curroay - s^sP^/ pro »'— f 

- = - * edge ♦ sideGap «C 

R - R * edge - sideGap , 

set top according to station CD 
35 'note: this trick will not work - f • e 

rowOffset « (<500 - 2 • lblH^aht f^p* Xt « J'"""*' not numbered l..„ 

t = shpSlotiOl.Top * ^opGAP ♦ P Pr f* (0 > • *«*ht > / NStation, 

B.C. shpProgOKHelgnt «"a«oa.- 1) * rowOffset 

•draw the box with the correct color 
orawwidth » 1 
Me.Fillstyle = 0 'solid 

-;I 1 ;, 1CO J?V Color( «^rIndex Mod 9) 
^ ne < L ' t)-3t«pfR - L . B - t), ,3 
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bcx " " ' 3 * the line «mmand with argument B draws a 

Er.d Sub 

Sub r cr-_Activate < j 

•make necessary changes to dis-lav 

D--. i As integer 'counts lnf ° and StaCus ba « 

Static saverilter As String 



:£ saverilter * filters (corrOomain, the., sameFUcer 



* True 
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saveFilter = filters (currDomain i 

SetStatus "TV Coming Up: • t currf iiter ITV) , greyCOLOR 

If newUser Then , . . 

s popup. Caption » "Press 'category' zo change the '<ir.c of crcgrarr.s di?*ayea. 

popup . Visible » True 
newUser = False 
Er.d If 

'if net sar.e filter, redo display 
J 0 If Net sa-.eFilter Then 

Setlnfo -Loading program in r creation . . . " , GREY 
shpProg(O) .Visible = False 
selector .Visible - False 
AppiyFilter 
?5 MakeDisplay 
End If 

* in every case 
DisplayProg 

If inPreview Then DoPreview 
20 End Sub 

Sub ForruKeyDown {KeyCode As Integer, Shift As Integer! 
Select Case KeyCode 
Case Asc ( "Q" ) 

End 
Case B_BACK 

returnCode = BACK 
Me. Hide 

Case 3.HEL? 

InvokeHelp 
Case B_?REVIEW 

If inPreview Then 

popup .Visible * False 
inPreview = False 

Else 

inPreview * True 
End If 
Case B_RIGHT 

If Not f ilterData (currDay) . EOF Then ChangeSel ("Right") 
Case BJLEFT 

If Not f ilterData (currDay) .EOF Then ChangeSel ('Left") 
Case B_CP 

If Not f ilterData (currDay ! .EOF Then ChangeSel ("Up") 
Case 3_DOWN 

If Not f il-erData <currDay! . EOF Then ChangeSel (-Down") 

Case B — SELECT 

If Not f ilterData (currDay) *. EOF Then SoSeiect 
Case B_ PAGEDOWN 
Case 3_?AGEU? 
Case 3_?ILTER 

returnCode » Filter 
Me. Hide 
Case 3_0 
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returr.Code » SHORTCUT 
Ke ; Hide 
End Select 

1 -r. ar.y case 
If inPreview Then 
DoPreview 

Else 

popup .Visible = False 
Er.d If \ 
Sub 



Form^Load i ) 
Dim i As Intege: 
3im t 'as time 



Cl. 

o 



'sec form colors and fonts 
Me. BackColor * fomCOLOR 
shpProg(O) .BackColor * BorderColor 
IblDay(O) .BackCclor « backgroundCOLOR ' 
lbxAM . BackColor » backgroundCOLOR ^. ■ 

IbiPM . BackColor * backgroundCOLOR 

selector . BorderColor « BorderColor {!. 
dayLine (C ) . BorderColor = divideColor «' 
lblTime(C) .ForeColor = slotCOLOR «/' 
shpSlot (0 ). BorderColor * slotCCLOR <V 
If displayMode = -TV- Then 

IblDay(O) .FonrSize = small FONT <l -- 
iblTimeiO) ."on:Size » srta 1 1 FONT ^« 
IblAM.FontSize « small FONT (f) 
IblPM.FontSize = smallFONT. [Jj 
popup .FontSize = mediumFONT CP 

Else 

IblDay t 0 ) . F ontSize * largeFONT 
IblTinietO) .FontSize « largeFONT 
IblAM.FontSize = largeFONT 
lblPM. FontSize = largeFONT 
popup . FontSize « largeFONT 
End If 

' se: scale and size objects 

SizeAForm Me. DispTop. DispHeight. DispLeft. DispWidth 
Me. Scale (0. 0)-(5CC, 500) 

SizeAControl lblDay(O) . 0. IblHeight, 0, 500 

'note: the AM/ PM labels would be placed when rime is filtered 
SizeAControl lblPM, 0. IblHeight. C, 30 
SizeAControl lblAM , 0, IblHeight. 500 - 30. 30 
SizeAControl IbiTime < 0 ) , IblHeight, IblHeight, 0, 50 

SizeAControl shpSIctiO). 2 ♦ IblHeight ♦ .5 * topGAP. 500 -2 * IblHeight, 0, 
SizeAControi popup/ ; 250, 200. 250, 200 
selector . BorderWidth » I 
dayline(O) .VI » C 
dayLine lO ) . Y2 = SCO 
initialize variables 
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s- Arc Time * fakeToday ♦ fakeTime 'this would be se: a: activate to currer.: ha 

NDays » 1 

slotsPerDay = 24 

NSlcts « KDays * slotsPerDay 

sameFiiter = False 

sameView = False 

ir.Preview = False 

'sec form scale and place permar.rer.: siuff (day and ::me labels: 
Me . ScaieWicth = NSlots . 
Load IbiDay(l) * 



SiseAContrsl IblDay(l), 0. lblHeight, 0, slotsPerDay 
lblDaytl: .Caption = DayString ( startTime, "long"; 
lbiDayfl) .Visible * True 
, 5 IblTime'O) -Width » 1 

For i » 1 To slotsPerDay 

Load IblTime ( i ) 

IblTmeti) .Move i - 1 

t = DateAdd ( "n" . 30 * (i - 11, star -Time i 'add 3C minute increments 
1 b IT irr.e i i ) .Caption » TimeLabelit) 
lb-Time (i) .Visible = True 
IblTimeii) . ZOrder 
Next i 

I.npuLData 
25 Form_Activate 

sameView = True 
End Sub 



Sub ZnputData ( ) 
part of form_load 

" cpens che database and creates allData snapshots 

Dim DB As database 

Dim RefSnap As snapshot 

35 Set DB = OpenDatabase (TVDB) 

'get reference date and number of stations 
Set RefSnap ■ DB .CreateSnapshot ( "Reference" ) 
RefSnap . FindFirst "Name ■ 'Date' " 
refDate = DateValue ( RefSnap < "Data" >) 
40 RefSnap. FindFirst •Name * 'NStations'" 

MaxStation = Val (RefSnap ( "Data " > ) 

Set allData (Oi = DB.CreateSnapshot ( "Programs" ) 
assumes data already sorted 



filter for particular time period, would happen at each half-hour change 
7S3egin = Abs (DateDif f ( "n" , startTime. refDate) \ 30) 
TS^nd = TSBegin ♦ slotsPerDay - 1 'check that slotsPerDay is set 
allData ( 0) . Filter = Overlap (TSBegin , TSEnd) 
Set allData ( 1 ) « allData ( 0 > .CreateSnapshot t ) 
Set allData(O) =» Nothing 'won ' t be needing everything 
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6 Sub 

b XakeDisplay ( J 

reate the display of programs from the data 
Dim i As Integer 'counter 
^im d As Integer 'day 
Dim F As snapshot 'convenience 

If Not sameView Then \ 

'would need to reset captions for times and day 
Zr.d If 

place program shapes 
Cls 'clear the form of previous drawings 
Co Events 'make it so 
cor d = 1 To NDays 
currDay = d 

'draw lines to separate time slots 
For i s G To slotsPerDay 
drawwidth = 4 

Line (i. snpSlot i 0 ) . Top) - < i , 500). slocCOLOR 
Next i 

'craw program shape for each prograr. in data 
Set F = filterData <d) 
If Not F . EOF Then 
F . MoveFirst 
Do While Not F.SOF 

DrawProg F < colorField) , F( "Start" ), F( "Finish- 
F .MoveNext 

Loop 

F . MoveFirst 
End If 
Next d 

' initialize stuff 

TScurrent « TSBegin 

currDay » 1 

s hp Prog ( 0 ) . ZOrder 

selector . ZOrder 

Set F s f ilterData (currDay ) 

' find a program to start on 

£o While TScurrent <= TSEnd 

F.FindFirst Overlap ( TScurrent , TScurrent! 

If Not F.NoMatch Then 
DisplayProg 
Exit Do 

Er.c If 

TScurrent = TScurrent + 1 

loop 

'make sure TScurrent is in range 

-f TScurrent > TSEnd Then TScurrent = TSBegin 

Sub 

Position (shape As Control, start, finish, station) 



17 



EP 0 735 749 A2 



w 



'position a program shape control 

Dim relatively relativeW, dayStart 
Dim edge 

'convert a day/ time to position in NSlot scale 
days tart « startTime * currDay - 1 
relativeL * (start - dayStart) * 48 
relativeW « (finish - dayStart) * 48 - relativeL 
'clip shapes off at day boundaries 
If relativeL < 0 Then 

relaciveW = relativeW + relativeL 
relat.veL = 0 
End If 

If relativeW * relativeL > slotsPerDay Then reiativeW = slotsPerDay - relative: 
'set left and width of shape, leaving small gap between programs 
75 edge » (currDay - 1) * slotsPerDay 

shape. Left » relativeL ♦ edge ♦ sideGap 
shape. Width = relativeW - 2 * sideGap 
'set minimum width so program is visible 

If shape. Width < MINProgWidth Then shape. Width * MINProgWidth 
'set top according to station 
20 'note: this will not work if "favorite" stations are not numbered l..n 

rowOffset » ((500 - 2 * lblHeight - shpProg ( 0 >. Height ) / NStation) 
shape. Top * shpSlot ( 0 ) . Top + topGAP ♦ (station - 1) • rowOffset 
End Sub 
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Function VDistHoriz (stationl, finish, station2. start ) 

'computes a value for the "visual" left-right distance between two programs 
'requires that the earlier program come first 

'note: needs refinement, does not work satisfactorily, especially with crowde: 
displays 

Dim deltaR. deltaT 'change in row and time 
Dim rowl, row2 



rowl = station 1 
row2 = station2 

'note: row calculations could be more complicated if stations not numbered l..n 
3S deltaR = Abs ( rowl - row2) * (100 / NStation) 

deltaT = (start - finish) * (100 / slotsPerDay) 
'penalize programs that are more up&down than to side 

If deltaT <= 1 Then deltaT » (finish * 3 - start) * (100 / slotsPerDay) 
If deltaT < 1 Then deltaT = 100 / s lotsPerDay * don ' t allow zero 
VDistHoriz = deltaR - deltaT 
40 End function 

Function VDistVert (stationl. starti, finish!, station2. start2, finish2) 
■computes a value for the "visual" up-dowr. distance between two programs 
'note: needs refinement 
45 Dim deltaR, deltaT 'change in row and time 

Dim rowl , row2 

rowi = stationl 
row2 = statior.2 

'note: row calculations could be more complicated if stations not numbered 1 . . r. 
so delcaR = Abs (rowl - row2) / NStation 
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If scartl > finish2 Then 

deltaT » Absfstartl - finish?) 
Elself star-2 > finishl Then 

del taT = Abs (s:art2 - finishl) 

Else 

del taT * 0 
End If 

VDistVert = deltaP. - 2 * deltaT 
Er.d rune z ion 

• = = = = *= FRAME form code « = = = 

'This form owns the standard info and status bars and allows 
' transfer of control from fcr— . to form. 
Option Explicit 



Sub Form_Activate [ I 

'decides which other form should show in its display area 
Select Case returnCode 
Case SHOWVIEW 

views ( cur r Domain ) .Show 
Case PICK 

f rmSelect . Show 
Case ?OTV 

f rrvTV. Show 
Case LAS7VIEW 
25 sameFilter » True 

views (cur rDoma in) . Show 
Case' STARTUP 

'do nothing- -don • t want rolodex to show yet 
Case Else 

frmDex.Show 

End Select CD 
End Sue 



Q_ 
O 

o 



Sub Forrn_Key3own (KeyCode As Integer, Shift As Integer) ^ 

I f KeyCode « Asc ( "Q- ) Then > 

35 End ^ 

2nd If j_ 

Er.d Sub (f) 

111 

Sub Form^Load l ) ff\ 
'set colors and fonts 
40 Me.3ackColor « formCOLOR 

ssplnf o . FontSize « mediumFONT 
sspStatus . FontSize » mediumFCNT 
'use builtin ob}ect to size background 
ScrWidth » Screen. Width 
45 ScrHeight = Screen . Height 

If displayMode « -mini" Then 
' for taking screen prints 
ScrHeight « ScrKeight * .54 
ScrWidth = ScrWidth • .712 
displayMode * "TV" 

Else 
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'resize to fit TV 
ScrHeight = ScrHeight * .63 
End If 

'set form to fill screen 
frmFrame.Top * C 
frmFrame. Height = ScrHeight 
f rmFrame . Lef t ■ 0 
f rmFrame. Width » ScrWidth 
'info line at top cf screen 
ssplnfo .Visible ■ True 
'status line at bottom of screen f 
sspStatus . Visible « True 
'define available display area 
DispTop » ssplnfo . Height ♦ 1.5 
*5 DispHeight = f rmFrame . Height - ( sspStatus . Height ♦ 1.5) - DispTop 

DispLeft = 0 

DispWidth » frmFrame. Width 

End Sub 
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Sub SetupStatus {) 
End Sub 

• =»»=== LIST form code ====== 

'This code is used for all three list forms (TV, Movies, Shopping ) 
Option Explicit 
25 Dim 33 As database 'full database with indexes 

Dim BlinkControl As Control 'set to blinking object (currently none) 
Dim itemSelected As Integer 'from 1 to MAXDI SPLAY 
Dim locSelected As Integer 'from 1 to MAXLOC 
Dim inPreview As Integer 'boolean 

Dim captionField As String 'the database field that is used for display 
Dim starcTime 'the start time for the TV/list 
Dim TS As Long 'the time slot for the TV list 

Dim rowOffset 'difference between tops of two consecutive reduced items 
Dim browsing As String 'type of current shopping list 
35 Dim colorField As String 'field which determines color (should be of type integer) 

'display parameters 

Const MAXDI SPLAY » 6 'Number of items in close up 
Dim MAXITEM As Integer 'Number of items in whole list 
Dim MAXLOC As Integer 'Number of locator positions 

Dim whichr Item ( MAXDI SPLAY ) As Integer 'which rltems are in the current display 
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'define sizes of locator and selector 
Const GA? = 10 'space around lists 
Const EXTRA = 70 'room for longer programs 
45 Const reducedEXTP-A » 20 'room for longer programs in reduced rep 

Const T « 50 'reduced list 

Ccnst H * 1000 - 2 * T 
Csr.st locL = 30 'display area 
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Const locW = 100 

Const dispL « locw ♦ 2 * locL 

Const dispW » 1000 - dispL - locL 
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database snapshots 
3 iff. allData As snapshot 
Di.-n -cemData As snapshot 
Dim storeOata As snapshot 
Dim deptData As snapshot 
Dir. scuff^ata As snapshot 
fiiterData As snapshot 

Sub ApplyFilter <) 

""d^ accor «^ to user choice 

Dim sortString As String 



15 Me Is TVlist Then 

captionField = "Title* 
sortStrir.g a 
colorFieid * "Type" 

20 Elself Me Is MOVlis- Then >" 

If saneView Then 0- 
keep allData as it *s 

O 

Else (J} 

reset allData to all movies t 

LoadOata 7"] 

25 •AlOata. Filter = viewFilter 16 

End IV aUD " a " al - Da «-Create Sa ap S hot(, " 

captionField = "Title- 2 
sortString • "Title" 

30 colorField a "Type" ^ 

Elself Me Is SKOPlist Then 

T.ote; This would all be dor.e totally di«.» nfl „ CO 

ca S ^:,t"^ fllters<cur^Do^,ain, 

55 browsing = - store - 

Set allData « storeData 
captionField » -name- 
filters (currDotnain) a 
sortString n -name" 

40 cslorField = 

Case "dept" 

browsing = "dept" 

:f dep-.Data.NoMacc.; Th^n ch " e "*- 1 should t use userStrin, 

Set allData - deptData 

filters (currDomain) « ■• 
i.se 

browsing = -stuff- 

Se\ 1 ^oa C c: r r s t ut ; D ; t ; tdepC - • • -H^-cod.-, 

End If 
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captionField ■ •name* 
sortString » "name - 
colorField » 
Case "item" 

browsing * " item* 

Set allData = itemData 

captionField = "name - 

colorField = " * . 

. filters (currDomam) = "name like ' " i userStrmg * 
sorts tring = "name" 
Case Else 

browsing * "stuff" 
captionField = "name" 
sortString ■ "nanie" 
colorField - "litem code] ■ 
Set allData = stuffData 
End Select 
End If 

allData. Filter • f il ters (currDomain ) 
If filters (currDomain) » " " Then 

allData. FindFirst "Not " & captionField i " * 

Else 

allData. FindFirst allData . Filter 
End If 

If allData. NoMatch Then 
MAX IT EM = 0 

E" 1 3e 

MAXITEM « 1 'temporary setting just to make sure it isn't 0 
Set filterData « allData . CreateSnapshot ( ) 
f ilterData.Sort » sortString 

Set filterData = filterData . CreateSnapshot ( ) 

End If 
End Sub 

Sub BlinkStart (C As Control, vis) 

Set BlinkControl « C 

BlinkControl .Visible » vis 

-mr Blink .Enabled = True 
End Sub 



Sub BlinkStop (vis) 
40 tmrBl ink. Enabled » False 

If BlinkContrcl Is Nothing Then 
'do nothing 

Else 

BlinkControl. Visible * True 
End If 

45 set ElinkControl * Nothing 

End Sub 

Sub ChangeLcc (direct As String} 
'page up or down with the locator 
50 Select Case direct 
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Case "Up- 

If locSelected > 1 Then 

locSelected = locSelected - l 
RedoDi splay 
End If 
Case "Down" 

If locSelected < MAXLOC Then 

locSelected = locSelected - 1 
RericDispiay 
End l!f 
End Select 
End Sub 

Sub ChangeSel (direct As String) 
'navigate up or down one selection 
Select Case direct 
Case "Up- 

If itemSelected > 1 Then 

'move up within current display 
itemSelected => itemSelected - l 
selector. Top « itemBox ( itemSelected) . Top - GAP 
rltem<0>.Top = rltem<whichr:tem< itemSelected) ) .Top 
rltem(O) .Left n locL - GAP 
rltenWO) .Width « locW * 2 • GAF 
Setltemlnfo 
Slself locSelected > 1 Then 

•display previous section of list 
itemSelected = MAXDISPLAY 
locSelected = locSelected - l 
RedoOisplay 
End If 
Case "Down" 

If itemSelected < MAXDISPLAY Then 

'move down within current display 
'do not .-nove to select an empty item 

" ^temS^ectL" ISPLAY * itemSelected < MAXITEM Then 

-temSelected = itemSelected ♦ 1 

selector. Top » itemBox { itemSelected) . Top - GAP 

rrtemO) .Top * rl t em twhichrlt em ( itemSelected) ). Tod 
r.temiO) .Left « locL - GAP 
rrterr.(O) .Width » locW * 2 • GAP 
Setltemlnfo 
End If 

Elself locSelected < MAXLOC Then 
'display next section of list 
iterr.Selected • 1 
locSelected » locSelected ♦ 1 
RedcZDi splay 
End Zf 
End Select 

rltemfC) .Visible = True 
End Sub 

Sub Do Preview ( ) 
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' shew preview window and preview locator 
D-rr. i As Integer 'counter 

inPreview - True 

hide other stuff 
locator .Visible » False 
selector .Visible « False 
For i * 1 To MAXDISPLAY 

itemBox(i) .Visible ■ False \ 

leftArrow ( i ). Visible * False 

rightArrow( i) .Visible = False 
Next i 

previewWin. Caption = "Getting preview..." 
previewWir. . ZOrder 
previewWin. Visible « True 

ShowPreview 
End Sub 

Sub DoSelect t) 

•act on the current selected item 

If Me Is TVlist Then 

'set selection data and go to TV 

userStation = filterData ( "Station" } 

userStart = filterData (" Start " ) 

returnCode = TOTV 

Me . Hide 
Elself Me Is MOVlist Then 

•display "order movie" message 

sarr.eFilter * True 

TellUser "You would be asked to confirm your order of - & 
filterData* "Title" ) 

Elself Me Is SHCPlist Then 
Select Case browsing 
Case "stuff" 

sameFilter = True 

TellUser "You would be asked to confirm your order or " & 
filterData < "name* ) 

Case "stcre" 

filters (currDomain) = -[stcre code) - " & filterData ( "code 
Fo rm_Ac t i va t e 
Case "item" 

filters (currDomain) = "[item code) = " & f ilterData (" code " 
Form.Activate 
Case "dept" 

filters (currDomain) = "(dept codel = " & f ilterData ' "code" 
Form.Activate 
End Seiect 
Zr.d It 
End Sub 
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Sub EndPreview ( ) 

*go back co regular list operation 
Dim i As Integer 'counter 

previewWin . Visible = False 
inPreview » False 
locator . Visible * True 
selector .Visible = True 
previewWin. Top » dispiayList . Top \ 
RedoDisplay 
Er.d Sub 

Sub Fonn.Act ivate () 

Dim x As Integer 'counter 

Dim section As Integer 'count the number of locator locations 

Dim KVisibie As Integer 'tally the visible shapes in a section 

Dint msg As String 

Static saveFilter As String 

Static saveView As String 

'check new filters against current filters 

If Not sameView Then sameView = (saveView * viewFilter) 

saveView * viewFilter 

If Not sameFilter Then sameFilter » (saveFilter « filters ( currDomain) ) 
saveFilter * f il ters (currDoroamJ 

SetStatus currView(currDomain) 4 currFi Iter (cur r Domain ) , greyCOLOR 

If sameFilter And sameView Then 

'keep everything the same as last time 
If newUser And Not Me Is SHOPlist Then 

popup. Caption = "To change the category shown, press the 'Category* 

button . - 

popup. Visible = True 

newUser = False 
End If 
RedoDi splay 

Else 

'clean up display 

Setlnfs 'Selecting data, please wait...". GREY 
If WAX IT EM = 0 Then 

previewWin. Caption = 

previewWin. Visible » False 
End If 
DoEvents 

If inPreview Then EndPreview 

For i si To MAXDI SPLAY 

itemBox ( i ) .Caption * mm 
Next i 

For i = 1 To MAXITEM 

Unload rltem(i) 
Next i 
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'filter new data 
ApplyFilter 
5 If MAXITEM * 0 Then 

'give 'no matches - msg 
locator. Visible » False 
rltem(O) .Visible » False 
For i » 1 To MAXDISPLAY 
MAXITEM » C. . 

10 itemBox(i) .Visible « False i 

leftArrow( i) .Visible » False 
nghtArrow(i) .Visible * False 
Next i 

previewWin. Caption = "No matches were found" & Chr(13) 
15 previewWin. Caption = previewWin . Caption & "Press 'Category' to change 

the selection." 

previewWin . ZOrder 
previewWin. Visible « True 
itemSelected » 0 
locSelected * 0 

20 Else 

redo list display 
£ i 1 t erDa ta . Move Las t 
MAXITEM « f ilterData.RecordCount 
set distance between items 
25 rowOffset * (H - rltemC 0 ). Height ) / MAXITEM 

If rowOffset > rltem(O) .Height ♦ GAP Then rowOffset » rltem( C t . Height 
GAP * max distance 

rltem(O) .Visible « False 
rltem(O) .Top » T 

rltem<0> .Lef t * locL * reducedEXTRA 
rltem(O) .Width = locW - 2 • reducedEXTRA 
rlt*m<0> .BackColor » itemCOLOR 
f ilterData . MoveFirst 
•size and place the item shapes 
'and set section bookmarks 
35 section » 0 'number of locator locations 

NVisible * MAXDISPLAY 'so first section will be marked correctly 
For i * 1 To MAXITEM 
Load rltem(i) 
If colorField <> Then 

rltem(i) .BackColor = Cclor <Val ( f ilterData i cclorField) ) Mod 9) 
40 End If 

NVisible = NVisible ♦ 1 
rltemtiJ.Top » T ♦ (i - 1) * rowOffset 
If NVisible > MAXDISPLAY Then 
•begin a new locator location 
45 section = section * 1 

locStart (section) * i 

marker (section) * f ilterData . Bookmark 
NVisible = 1 
End If 

If Me Is TVlist Then 
50 'set length of reduced item 



55 



26 



I 



EP 0 735 749 A2 



20 



If filterDataCStartTS") < TS Then 

rltem(i) .Left - rltem ( i ) . Lef t - reducedEXTRA 
rltemi i) .Width « rltemt i ) .Width ♦ reducedEXTRA 
5 End If 

If f ilterData( TinishTS" ) > TS Then 

rltera(i) .Width * rltem( i ) . Width - reducedEXTRA 
End If 
End If 

rltem(i) .ZOrder \ 
10 rltem(i) .Visible « True 

f ilterData . MoveNext 
Next i 

MAXLOC « section 

locStart (section ♦ 1) * MAX ITEM «• 1 

15 

'set length of mincelector (use rltem(O)) 
rltem(0i .Lef t « locL - GAP 
rlteir.(O) .Width * locW ♦ 2 * GAP 

'initialize selector and locator 
itemSelected = 1 
locSelected » 1 
locator .Visible « True 
rltera(O) .BackColor = high light COLOR 
* set the captions in the itemBoxes 
25 RedoDi splay 

End If 
End If 
End Sub 

Sub Fo rm_Ke yDown (KeyCode As integer. Shift As Integer) 
30 popup. Visible = False 

Select Case KeyCode 
Case Asc ( "Q" ) 

End 
Case B.BACK 

35 If Me Is SHOPlist And browsing = "item" Then 

'not exactly what we want 
returnCode = ALPHA 
Me. Hide 

Else 

returnCode = BACK 
40 Me. Hide 

End If 
Case S_HELP 

InvckeHeip 
Case B.PREVIEW 
4S If inPreview Then 

EndPreview 

Else 

DoPreview 
End If 
Case B_5ELECT 
50 Zi MAXITEM > 0 Then DoSelect 
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Case B.UP 

If MAXITEM > 0 Then ChangeSel ("Up"! 
Case B.DOWN 

If MAXITEM > 0 Then ChangeSel ("Down") 
Case B_ RIGHT 

If Me Is TVlist Then 

retumCode = COMING 
Me. Hide 
. End If 
Case B_L£FT 
Case B_?AGEUP 

15 inPreview Then 
'scroll preview 

If previewWin .Top < displayList .Top Then 
is 'move preview window down a screen 

previewWin.Top « previewWin . Top * displayList . Height 
End If 

Else 

If MAXITEM > 0 Then ChangeLoc (-Up") 
End If 
Case B — PAGEDOWN 

If inPreview Then 
'scroll preview 

If previewWin.Top + previewWin . Heighc > displayList . Top - 
displayList .Height Then 
25 'move preview window up a screen 

previewWin.Top * previewWin.Top - displayList . Height 
End If 

Else 

If MAXITEM > 0 Then ChangeLoc ("Down") 
End If 
Case B_FILTER 

If Not Me Is SHOPlist Then 
retumCode = Filter 
Me. Hide 
End If 
35 Case B_0 

retumCode * SHORTCUT 
Me . Hide 
End Select 
End Sub 

40 

Sub Form.Load ( ) 

Dim i As Integer 'counter 
Dim itemRoom 

'set colors and fonts 
45 itemBox(O) .FontSize = largeFONT 

lef tArrow( 0 ) . FontSi2e » largeFONT 
rightArrowtO ) . FontSize « largeFONT 
If displayMode * -PC* Then 

popup . FontSize = largeFONT 
previewWin. FontSize » largeFONT 

Else 
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previewWin. FontSize - mediumFONT 
popup. FontSize « small FONT 
End If 

5 rltem(O) .BackColor o itemCOLOR 

selector .FillColor « highlightCOLOR 

cisplayList. FillColor = backgroundCOLOR 

previewWin. BackColor » backgroundCOLOR 

locator . FillColor ■ backgroundCOLOR 

itemBox(O) .BackColor « itemCOLOR ' 
10 leftArrowt 0) .BackColor ■ itemCOLOR . ■•• 

rightArrowtO) .BackColor = itemCOLOR 

shpSlot.BorderColor * slotCOLOR 
sire the objects to the screen 

SizeAForro Me. DispTop, DispHeight, OispLeft, DispWidth 
, 5 Me. Scale (0. 0)-(1000, 1000) 

SizeAControl locator, T - GAP. H * GAP. locL - GAP. locW * 2 * GAP 

SizeAControl shpSlot. T, H, locL ♦ reducedEXTRA. locW - 2 • reducedEXTRA 

SizeAControl displayList, T - GAP, H + GAP. dispL. dispW 

SizeAControl popup, dispW / 2, 4 * locW, dispW / 2, 4 * locW 

CPlace 1, previewWin, displayLisc 
20 locator . ZOrder 

shpSlot . ZOrder 

rltem(0> .ZOrder 

itemRoom * H / MAXOISPLAY 

SizeAControl itemBox(O), T ♦ <.5 • GAP) , itemRoom - GAP, dispL ♦ EXTRA, dispW - 
2S 2 * EXTRA 

SizeAControl patch (0) . SO, (6.8 * itemBox( 0 ). Height ) , (12.3 * itemBox < 0 ). Width) . 
(7 • itemBox (0) .Height) 

If displayMode = "TV Then 

patch (0) .Left « 8.08 * i temBox (01. Width 
pat=h{0) .Height * 3.7 • itemBox ; 0) . Height 
30 End If 

SizeAControl lef tArrow(0 ) . T - (.5 * GAP) . itemRoom - GAP . dispL. EXTRA 
SizeAControl rightArrow(O) , T ♦ (.S • GAP), itemRoom - GAP. dispL ♦ dispW - 
EXTRA. EXTRA 

SizeAControl selector, T, itemRoom ♦ GAP, dispL, dispW 
3$ selector . ZOrder 

For i a 1 To MAXDISPLAY 

'Load itemBoxU) 'Now created at design time—fixed number (6) 

itemBox(i) .Visible « False 

CCopy itemBox(O), itemBox<i> 

patch ( i ) .Visible » False 
40 CPlace 0, patch(i). patch (0) 

itemSoxt i ) .Top « itemBox ( 0) .Top + li - 1) • itemRoom 

Load leftArrow(i) 

lefftArrowU J .Top * itemBox < i ) .Top 
Load right Arrow ( i ) 
45 rightArrow(i) .Top ■ itemBox < i ) .Top 

Next i 

' load the list data and set up the display 
sameFilter » False 
sameView = False 
SO LoadData 
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Form_Activate 
sameFilter * True 
End Sub 

5 

Function ItemString () As String 
' set msg to be used in info bar 
Dim msg As String 

If Me Is TVlisz Then 
10 msg = Format ( filterData ( "Title" ) > & " on " 

msg = msg & StacionString t filterData < "Station" ) ) & ", " 
msg = msg & TimeString { filterData ( "Start " ) ) & " to " 
msg a msg & TimeString ( filterData ( "Finish" ) ) 
Elself Me Is MOVlist Then 

msg • Format (filterData ( "Title" ) ) 
msg • msg & " , ■ & Format ( filterData < "Year ") ) 
Elself Me Is SHOPlist Then 
Select Case browsing 
Case "stuff" 

msg = Format ( filterData ( "name" ) ) & " - S" & Format ( filterData { 'price* ) ) 
^0 End Select 

End If 

ItemString = msg 
End Function 

25 Sub l<oadData ( ) 

Dim refSnap As snapshot 
Dim refDate 

' load in the database as a snapshot 
If Me Is TVlist Then 
30 startTime ■ fakeToday + fakeTime 

Set DB = OpenDatabase (TVDB) 

Set refSnap « DB.CreateSnapshot ( "Reference" ) 
ref Snap . FindFirst "Name » "Date*" 
refDate « DateValue ( ref Snap ( "Data" ) ) 
3 5 Set allData = DB.CreateSnapshot ( "Programs" ) 

'filter for time would really happen at activate 
TS « (startTime - refDate) * 48 
allData. Filter = OveriaptTS, TS) 
Set allData ■ allData . CreateSnapshot { ) 
Elself Me Is MCVlist Then 
40 Set DB « OpenDatabase (MVDB) 

Set allData = DB . CreateSnapshot ( "Movies " ) 
Elself Me Is SHOPlist Then 

Set DB = OpenDatabase ( SPDB) 
Set iterrData = DB . CreateSnapshot ( "Items " ) 
45 Set stcreDaca « DB .CreateSnapshot ( "Stores" ) 

Sec deptDaca * DB . CreateSnapshot ( "Departments ■ ) 
Sec stuff Data * DB . CreateSnapshot (" Scuf f " ) 
End If 
End Sub 

SO Sub RedoDi splay ( ) 
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set the captions in the itemfioxes to correspond to items in locator 
' reposition locator and selector, update info box 

Dim last As Integer 
Dim i As Integer 

Dim Index As Integer 'index of rlcem 

If MAX ITEM * 0 Then Exit Sub 

figure first item location 
filter Data . 3ookinark = marker ! locSelectec) 
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Index = locStart ( locSelected) 
For i s 1 To MAXDI SPLAY 

If f ilterData. EOF Then 
is 'hide empty itemBcx 

itemBox ( i >. Caption » 
i^emBoxd) .Visible a False 
leftArrow(i) .Visible « False 
rightArrouM i ). Visible • False 

Else 

whichrltem(i) « Index 'so we can highlight the correct rlten (reduced 
i - err. ) 

If colorField <> - " Then itemflox ( i ) . BackColor = 
Color ( filterData(colorField) Mod 9) 

itemBox(i) .Caption « f ilterData ( captionField > 
25 15 Not inPreview Then itemBox ( i ) .Visible » True 

If Me Is TVlist And Not inPreview Then 

•show arrows to reflect program length 
If f ilterData ( "StartTS" ) < TS Then 

leftArrow* i ) .BackColor = itemBox ( i }. BackColor 
leftArrow(i) .Visible • True 

50 El*. 

leftArrow(i ) .Visible « False 
End If 

If filterDataCFinishTS- ) > TS Then 

rightArrow( i ). BackColor - itemBox ( i ). BackColor 
35 rightArrowf i ) .Visible » True 

Else 

rightArrow( i) .Visible = False 
End If 

* show color patch for subcategory 

patch(i) .FillColor « Color ( f ilterData ( "Category - ) Mod 9) 

patch(i) .Visible « True 
End If 
last = i 

Index a Index * 1 
f i 1 terDa ta . MoveNext 

45 Er.c If 

Next i 

'Do r.ct allow blank to be selected 
If itemSelected > last Then 

itemSelected = last 
Er.c I f 
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'fix the rest of the display 

displayList .Height * H ♦ 2 * GAP - (H / MAXDISPLAY * (MAXDISPLAY - last!) 
'display list shrinks when fewer than MAXDISPLAY items displayed 

selector. Top » itemBox ( itemSelected) .Top - GAP 'behind current itemBox 
locator. Top = T * rowOffset * ( locStart ( locSelected) - 1) 

locator .Height * last • rowOffset ♦ rltem(O) .Height - rowOffset 'height shrinks 
wher. displayList shrinks 

rItem(C).Top = rltemtwhichrltem(itemSelected) ) .Top 

Setltemlr.ro 
End Sub 

Sub SetZtemlnfo () 

'display current item's info in info bar 

Dim i As Integer 't of records away from bookmark we need to go 

Dir. msg As String 

find selected record 
filterData. Bookmark = marker ( locSelected) 
i = itemSelected 
While (i > 1) 

f ilterData . MoveNext 

i ■ i - 1 

Wend 

' Put info in the inf c bar 

Setlnfo ItemString ( J , ( itemBox ( itemSelected) . BackColor) 
'update preview window if needed 
If inPreview Then ShowPreview 
End Sub 

Sub ShowPreview (J 

'Display the video, still, or text preview 
* of the item selected 
Dim msg As String 
If Me Is MOVlist Then 

msg = f ilterDataf "Plot " ) 
Elself Me Is TVlist Then 

msg * f ilterData (captionField) & Chr(13) 

msg = msg & StationString ( filterData (* Station" ) > & Chr(13) 

msg = msg & Category-String (( f ilterData < "Type" )} , ( filterData < "Category ")) ) 

Else 

msg = "This would be a video, still, or textual preview of 
msg * msg St f il terData (captionField) 
msg = msg & 
End If 

previewWin .Visible » False 
previewWin . Caption * msg 
Crlace 3 , previewWin. displayList 
previewWin .Visible ~ True 
End Sue 

Sub t~r3x ink _ Timer ( ) 

BlinkControl .Visible = Not BlinkControl . Visible 
End Sub 
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' bsobss MESSAGE form code = 

"This form is used by Help and some lists display inforjwt::r.. 
* temporarily covering up the current forrr. . 
Option Explicit 

Const GAP * 5CC 

Sub Form_Activate ;) 

textArea . Caption » userMsg 
End Sub 



Sub rorm_KeyDown (KeyCode As In teger . Shi ft As Integer* 
Select Case KeyCode 
'5 Case Else 

returnCode = KeyCcde 
Me. Hide 
End Select 
End Sub 

20 

Sub Form_Load { ) 

* set colors and fonts 
Me.BackColor » itemCOLOR 
textArea . Bac<Color - itemCOLOR 
textArea. FontSize =■ largeFONT 
25 'set sizes 

Si2eAFcrm Me. DispTop, DispHeight, DispLeft, DispWidth 

Si2eAControl textArea, GAP. DispHeight - 2 * GAP, GAP, 3ispWidth - 2 * GAP 
' initialize - .... 

textArea . Caption = 
End Sub 

30 

• ====== ROLODEX form code ====== 

'This form shows the main menu and filter menus. 

• L'nimplemented : Have filter button color correspond to type/category ecler 
Option Explicit 

Dim BlinkControl As Control 1 pointer to blinking highlight 
Dim parent As Integer 'number of parent card 
Dim current As Integer 'number of current card 

'special cards 

'note: these must be updated each time the number of filter cards in the card 
datafile changes 

Const filterCARS =1 'TV filter menu 
Const mfilterCARD « 58 'movie filter menu 
Const homeCARD =96 'main menu 

45 Dim lastCard As Integer 'holds number of regular card while in filter 

Const MAXT-7LE » 3 'WARNING: A change in MAXTITLE requires a change in cede fo: 
LoadGraphics 

Const CARDSKIFT * 2.5 * f or card display- -amount change in card placement 
SQ Const MAXROWS = 3 'for card display- -number of rows of buttons 

Const MAXCOLS * 3 'for card display- -number of columns of buttons tn a card 
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Ccr.st XAXCARD = 9 'max number of cards that can be displayed on screen 
Zznsz MAX IT EM = 9 'max number of buttons on a card 

action codes; tell what action to take for a button choice 
■actions greater than act NEXT need additional input 
Ccr.sc act COMING » 2 
Ccr.s t act NOW « 2 
Const actfCEXT * 5 
Const actALPKASHOP = c 
Const actFlLTER = 7 
Cor.s; actALPHATV = 8 
Ccr.st actALPHAKOV = 9 
Const actDOMAIN = IC 
Ccr.st actLATER = 11 
, 5 Const actWEEK - 12 

Const actWKEND * 13 
Const actSCHED » 14 
Const shortTWIEW = 30 
Const shortMWIEW = 31 
Const shortSPVIEW » 32 
20 Const shortTVNOW =35 

Const shortTVFAV =35 
Const shortMVFAV « 37 
Const shortSPFAV * 38 
Const actMOVIE a 40 
2s Const act STORE 3 50 

Const actDEPT = 52 
Const actMORE = 60 
Const act NONE = 65 
' for development only 
Const ac t KEYS = 71 
Const actTABS « 72 
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Sub Animate (direct As String, cardNo As Integer) 
'Animate opening another card, backing up, or selecting a button 
Dim index As Integer 
35 Dira depth As Integer 

DoEver.ts * do not interrupt another animation 
depth » Cards ( current ). level 
Select Case direct 
Case -Back" 

40 Zz Cards (current} .parent > 0 Then 

CCopy sspCard(depth) , sspCont 
sspCont . Visible = True 

Zoom IC, sspCont. sspItemtCards(current) .self) 
DisplayCard (Cards ( current j . parent > 
45 - sspCont . Visible • False 

End If 
Case "Next" 

index = Cards i current ). selected 
If index > 0 Then 

CCopy sspltemi index) . sspCont 
50 sspCont . Visible = True 
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sspCont . BackCoior ■ sspCard (0 ) . BackCoior 
Zoom 1C, sspCont. sspCard (depth ; 
DisplayCard cardNo 
sspCont .Visible » False 
End If 
Case "Select" 

index * Cards (current ). selected 
If index > C Then 

CCopy sspZtemt index) . sspConc 
sspCont .Visible = True 
sspCont . BackCoior * sspCard (C i. 3ackCo lor 
SizeACcr.trol sspCard(O), 0. 5CC . 0. SCO s.ze of whole 
Zoom 1C, sspCont, sspCard (0> 
End If 
1S End Select 

End Sub 

Sub BlinkStart (C As Control, vis) 
•enable blinking object 
Set Blir.kControl * C 
20 BlinkControl .Visible = vis 

tmrBl ink. Enabled = True 
End Sub 

Sub BlinkStcp (vis) 
2s 'stop blinking object, leaving visiblilicy as vis 

tmrB 1 ink . Enabled = False 
If BlinkControl Is Nothing Then 

'do nothing 
Else 

BlinkControl. Visible = vis 
30 End If 

Set BlinkControl * Nothing 
End Sub 

Sub ButtonAction <) 
35 'perform action associated with selected butter* 

Dirr, button As Integer 
Dim cardNo As Integer 
Dim msg As String 
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button = Cards (current) .selected 'item r.urber of selected button or. parent card 
cardNo * Cards (current ). item (button) 'card .Tjsber of selected button 
If button < 1 Then Exit Sub 



Select Case Cards ( cardNo )♦ act lonCode 
Case actNONE 
45 ' *n inactive button 

Setlnfo "This option is not yet available.", greyCOLOR 
Case actNEXT 

'display che next card 

An—Ate "Next". Cards ( current :. iters ( but ::r. ) 
Case act DOMAIN 

'change current domain before going tc the next card 
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currDomain = Val (Cards (cardNo) .actionData) 
SetStatus Cards (car INo) .name. greyCOLOR 
Animate "Next", Cards ( current J .icenMbutton) 
Case act MORE 

'show more choices on same topic ! current ly same as actNEXT) 
Animate "Next", Cards ( current j , iteiMbutton) 
Case act COMING 

'show schedule cf what's coming J? or. TV 
• ' Animate "Select*. D 
W sameFilter * False \ 

Set views ( currDomain) c rrmComtr.g 
returnCode = SHOWVIEW 
Me. Hide 
Case act NOW 

show what's on TV now 
currViewf currDomain) = "TV 6:32pm : " obviously, this would be the current 



15 



25 



35 



Animate "Select". 0 
sameFilter = False 
sameView * True 
20 Set views (currDomain) - list? rrru currDomain) 

retumCode = SHOWVIEW 
Me. Hide 
Case act LATER 

'show what's on TV for a later day 
'currently non-functional 
'Animate "Select" , 0 
'sameFiiter = False 
'Set views (currDomain) * frmFricay 
returnCode « SHOWVIEW 
Me. Hide 
30 Case actWEEK 

'show TV schedule for weekdays 
Animate "Select*. 0 
sameFiiter = False 
Set views ( currDomain) « frmWkcay 
returnCode = SHOWVIEW 
Me. Hide 
Case actWKENO 

'show TV schedule for weekend 
' currently non -functional 
Animate "Select"* 0 
40 sameFiiter = False 

'Set views (currDomain) « frmWkend 
returnCode » SHOWVIEW 
Me. Hide 
Case actSCHED 

' show TV schedule 
currently non- functional 
'Animate "Select" , C ^ 
'sameFiiter - False 
Set views ( currDomain) * frmSched 
returnCode * SHOWVIEW 
SO Me. Hide 
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Case actALPHASHO? 

5 Animate "Select". 0 

SetStatus 'Shopping, - & Cards (car dtfo) .name. greyCOLOR 
msg = CardsicardKoj.actionData greycoLOR 
Setlnfo m&g, YELLOW 
Wait frraAlpfca 

If returnCode <> 3ACK And uaarSCring <> "" Th-er ' 
w sameFilter - raise " * 

filters; cur rDomain) = "item- 
Set views icurrDomair.) * listFrmi curr Domain' 
returnCode - SHOWVIEW 
Me. Hide 
Er.c If 
Case act ALPHA TV 

'allow user to select a show title 
Animate "Select". C 

SetStatus -TV. - 4 Cards (car dNo) . name . greyCCLOR 
returnCode * pick w"y^~un 
20 Me. Hide 

Case a c t AL PHAMOV 

• T a iS l^ ?°v h °° ked UP C ° W ° rk ' but Wcjld P'otabXy be 
a lot like actALPHTV 

'Animate "Select". 0 
Case actFILTER 

'send a new filter to a TV view 
filters (currDomain) - Cards (cardNc) . act ionData 
currrilter(currDorr.ain) . Cards (cardNo) . infotext 
samer liter = False 
sameView » True 
returnCode » SHOWVIEW 
Me . Hide 
Case actMOVIE 

'show a movie list 
Animate "Select". 0 
35 15 current > homeCARD Then 

•the view <* filter) is changing 
currView(currDomain) * Cards ( cardNo ) infotext 
viewFilter . Cards (cardNo) . act ionData 
sameView = False 
sameFilter - False 

40 Else 

"the category is changing 

currFilcar.currOomain: . ■ s - fc Cards (cardNo, . in fo:ext 
t..ters,currDowir.) * Cards (cardKc ;. act ionData 
saneView = True 
45 sameFilter * False 

Snc I f 

Set views (curr Domain) » 1 is tFrm( curr Domain) 
returnCode « SHOWVIEW 
Me. Hide 
Case actSTCRE 
50 'show a list of stcres 
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Animate "Select", 0 

Setlnfo -Choose a store:". TURQUOISE 

SetStatus -Shopping*. greyCOLOR 
5 sameFilter » False 

filters (cur rDorta in) * "store- 
Set views (cur rDomain) « listFrmt currDomain) 

recumCode = SHOWVIEW 

Me. Hide 
Case actDEPT 
10 'show products from a department 

Animate "Select", 0 

SetStatus "Shopping. " & Cards icardNo i . infotixe, greyCOLOR 
sameFilter « False 
filters (currDomain) » "dept" 
userString * Cards (cardNo ) .name 
Set views (currDomain > = listFrmi currDomain) 
returr.Code * SHOWVIEW 
Me . Hide 
Case shcrtTWIEW 

'Show last TV schedule or list 
20 Animate "Select", 0 

cur r Dona in * TV 

If views (currDomain) Is Nothing Then 

Set views (currDomain) * frmComing 
End If 

sameFilter = True 
returnCode = SHOWVIEW 
Me. Hide 
Case shortMWIEW 

'Show lat mcvie list 
Animate "Select", 0 
30 currDomain « MCVIE 

If views (currDomain) Is Nothing Then 

Set views (currDomain) ■ listFrm ( currDomain) 
End If 

sameFilter * True 
returnCode = SHOWVIEW 
Me. Hide 
Case shortSPVIEW 

•Show last shopping view 
Animate "Select", 0 
currDomain = SHOP 
40 if views (currDomain) Is Nothing Then 

Set views (currDomain) = listFrm(currDomam) 
End If 

sameFilter » True 
returr.Code ■'■SHOWVIEW 
Me . Hide 
Case short TVNOW 

' show all TV shows on now 

currFi Iter 'currDomain > = "All Categories* 

currView: currDomain > * "TV 6:30pm : - "obviously, this would be the current 

z ime 

50 Animate "Select", 0 
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curr Domain « TV 

f i Iters (currDomain) ■ 

sameFilter « False 
5 sair.eView s True 

Set views (cur r Domain) s listFrn\(currDomair. t 

returnCode ■ SHOWVTEW 

Me. Hide 
Case actKEYS 

'Only for development, wouldn * z stay 
10 SetKeys Cards (cardNo ) . act lonData 

SetStatus Cards ( cardNo ). ir.fotext , itemCOLOR 

current » homeCARD 

OisplayCard current 
Case actTA3S 
;5 'only for development 

ToggleTabs 
Case £lse 

MsgBox *3ad action code for card * & Cards ( cardNo) .name 

Stop 

End 

20 End Select 
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Sub ChangeSel (direct As String) 
*do button navigation 
Dim n As Integer 

Dim last As Integer, Sel As Integer 
n = Cards (current ). NItems 
last s Cards (current) . selected 
If last « 0 Then Exit Sub 



If direct = -Right" Then 
'move right with wrap around 
If last = n Then 
Sel r » 1 

Else 

Sel » last «• 1 
End If 

Elself direct = "left" Then 
'move left with wrap around 
If last = 1 Then 
Sel » n 

40 Else 

Sel a last - 1 
End If 

Elself direct = "Up" Then 
•move up. no wrap around 
45 If last > XAXCOLS Then 

Sel = last - MAXCOLS 

Else 

Sel » last 
End If 

Elself direct « "Down" Then 
so "move down, no wrap around 
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If Us: n - MAXCOLS Then 
Sel * iasc * MAXCOLS 

Else 

5 Sel ■ last 

End If 
Else 

MsgBox "Bad Direction - 
Er.d 
End If 

70 

Cards (current J . selected = Sel 
CpdateSei 
End Sub 

1S Sub O-splayCarc (index) 

' takes care of displaying menu on screen 

Dim depth As Integer * number of visible cards 

Dim i As Integer 'counter 

rim ancestor As Integer 'card numbers 

20 current « index 

parent « Cards (current ). parent 
depth * Cards (current) .level 

'hide cards after (in front of) current 
25 For i * MAXCARD To depth * 1 Step -1 

sspTitle(i) .Visible « False 
sspCard(i) .Visible = False 
Next i 

'make sure previous tab names are correct and visible 
30 ancestor » current 

For i = depth - 1 To 1 Step -1 

ancestor = Cards (ancestor) .parent 
sspTitle ( i ). Caption » Cards (ancestor ) .name 
sspCard (i ). Visible = True 
35 sspTitle : i) .Visible = True 

Next i 

' show current card 

sspTitle Idepth) .Caption * Cards ( current ). name 
sspCard( depth) .Visible = True 
40 sspTitle (depth) .Visible = True 

1 show buttons on current card 
Display! teir.s 
End Sub 

45 

Sub Display I terns () 
'displays buttons on a card 
^im Area As SSPanel 
Dim i As Integer 
D im Dx , Dy , x . V , w , h 
50 Dim NI terns As Integer 
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NItems = Cards t current ). NI terns 

s Set Area » sspCard (Cards < current ) . level )' this is a po.nter. r.ot a copy 

'calculate size of button 

Dx - Area. Width * .9 / MAXCOLS 

Dy m Area. Height * .9 / MAXROWS 

w » Dx • .9 

If w > 3 0 Then w - 30 
10 h » 2y * . 9 

:f h > 20 Then h » 20 

ssp31ink3G. Visible « False 
sspBIinkBG. ZOrder 0 'bring to front 
'place and show each button 
"or i o l To Nit ems 
sspltemt i > .width » w 
sspltera( i > .Height ■ h 

sspltem( i ) .Caption « Cards (Cards < current ). i :em ( i )). name 
If Cards (Cards (current J . itemt i )) .act; cnCode « actNONE Then 
'turn inactive buttons grey 
sspltemt i I . SackColor « greyCOLOR 

Else 

sspltemt i ) . BackColor = itemCOLOR 
End If 

x - Area. Left - .05 * Area. Width ♦ { { i i - 1) Mod MAXCOLS 1 * .5) * Dx 
Y = Area. Top ♦ .05 * Area. Height ♦ i Int ( ( i - 1) / MAXCOLS ) * .5) * Dy 
Center Item ssplteir. ( i > , x, Y 
sspltemt il .ZOrder 0 
sspltemt i J .Visible = True 
Next i 

'make blinker bigger than buttons 
CPlace 2. sspBlink3G, sspltemt 1! 



20 



25 



30 



35 



'hide unused buttons 
For i » NItems * 1 To MAXITEM 

sspltemt i ) .Visible » False 
Next x 
UpdateSel 
End Sub 

Sub F^rrr.Activate () 
4 0 • check for a return code from another form 

sspCont .Visible = False 
Select Case returnCode 
Case 3ACK 

If current < homeCARD Then current = lastCard 
4S SetStatus "Use arrows and select or use keypad.". greyCCLCR 

SisplayCard current 
UpdateSel 
Case SHORTCUT 

current * homeCARD 

SetStatus "Use arrows and select or use keypad. - . greyCOLOR 
50 DisplayCard current 
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UpdateSel 
Case FILTER 

SetStatus "Use arrows and select or use keypad. " , greyCOLOR 
If current < homeCARD Then 
DisplayCard current 

Else 

lastCard = current 
Select Case currDomair* 
Case TV 

DisplayCard filterCARD 
Case MOVIE 

DisplayCard mfilterCARD 
Case SHOP 

DisplayCard current 
End Select 
End If 
UpdateSel 
Case COMING 

* to get from TV list view to schedule view 
Cards (current >. selected ■ 2 
sameFilter « False 
Set views (currDomair.) * frmComing 
returnCode = SHOWVIEW 
Me .Hide 
End Select 
nd Sub 

ub Form_KeyDown (KeyCode As Integer, Shift As Integer* 
Dim index As Integer 
Dim n As Integer 

Select Case KeyCode 
Case 5.BACK 

'Go up in menu hierarchy 

Animate -Back - . 0 
Case B.HELP 

InvokeHelp 
Case B.PREVIEW 

userStation = 1 

userStart = fakeTime 

returnCode = TOTV 

Xe .Hide 
Case 3_ SELECT 

Do button action 

ButtonAct ion 
Case 3_RIGHT 

ChangeSel t "Right" ) 
Case 3_LEFT 

ChangeSel ("Left") 
Case 3_UP 

ChangeSel ("Up") 
Case 3 _ DOWN 

ChangeSel ( "Down" ) 
Case 3,?AGEU? 
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Case 3_ PAGEDOWN 

'use numeric key pad to choose a but ten directly, w:chout navigation 
Case 3_1 

If Cards ( current J ,NI terns > 0 Then 
Cards (current) . selected = 1 
UpdateSel 
ButtonAction 
£nd If 
Case 3_2 

If Cards (current ; .NItems > 1 Then 
Cards ( current •. selected = 2 
UpdateSel 
ButtonAction 
End If 

15 Case B_3 

If Cards ( current ) . NItems > 2 Then ^ 
Cards (current ). selected * 3 
UpdateSel 
ButtonAction 
End If 
Case B_4 

If Cards (current > .NItems > 3 Then 
Cards ( current ). selected » 4 
UpdateSel 
ButtonAction 
25 End If 

Case B_5 

If Cards (current) .NItems > 4 Then 
Cards < current) . selected = 5 
UpdateSel 
ButtonAction 
End If 
Case B_6 

If Cards (current ) .NItems > 5 Then 
Cards t current ). selected * S 
UpdateSel 
35 ButtonAction 
End If 
Case B_"> 

If Cards (current) .NItems > 6 Then 
Cards (current ). selected « l 
UpdateSel 
ButtonAction 
End If 
Case B__8 

If Cards (current) .NItems > i Then 
Cards (current) . selected - 9 
45 UpdateSel 

ButtonAction 
End If 
Case B_9 
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Cards (current) .selected 
UpdateSel 
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ButtcnActicn 
End If 
Case 3_D 

currer.: « hoir.eCARD 
DisplayCarc current 
Case Asc < "Q" ) 

Z-d 
Er.d Select 
:d Sub 

\ 

c Form_Load ( ) 

'sec fonts and colors 

sspCardfC > .BackColor = backgroundCOLCR 
sspTitie* 0) .SackCoicr = backgrour.cCCLOR 
sspIterrUO > .BackColor = itemCCLOR 
ssp31inkBG.BackColcr = highlightCOLCR 
sspItemtC > .FontSize = mediumFONT 
sspCarciC ) .For.tSize = mediumFONT 
sspTitle ( C) . Fcr.tSize » mediumFONT 
Me.SackColor * forxCOLOR 
'fit into display area 

SizeAFco Me, cispTop, dispHeight. dispLeft, cispWidth 

Me. Scale fO. 0i-(100. 100) 

'set global return code to default 

returnCcde = BACK 

'read in menu hierarchy for rclodex 

PcpulateCards 

' load graphical objects 

LoadGraphics 

' set current card on screen 
DispiayCard homeCARD 
d Sub 

b LoadGraphics ( i 

Dim i As Integer 'counter 
Dim tabHeight 

' load buttons 

For i = 1 To MAX ITEM 

load sspltem(i) 
Next i 

' shape prototype card 

sspCard(O) .Top « sspl tens ( 0 ). Height 

sspCard(C) .Height ■ 100 - CARDSKIFT - sspCard ( C ) . Top 
sspCard ( 0 ) . Left * 2 • CAR23HIFT 
sspCardtO) .Width = 100 - 4 • CARDSKIFT 
* shape prototype tab 
sspTitle(C) .AutoSize = False 

sspTitle(0! .Width = sspCard 1 C ). Width • MAXTITLE - CARDSH 
' load and shape cards and tabs 
Fcr 1=1 To MAX CARD 
load sspCard { i > 

sspCardti) .rfeight « sspCardti - 1). Height - CARDS HI FT 
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sspCard ( i ) . Tcp = sspCard ( i - 1 ) . Top * CARD SHIFT 
sspCard ( i ) . ZCrder 
Load sspTitle{i) 

sspTitlel i! .Top = sspCard { i ) . Top - sspT-tle : 0 i . Height 
Select Case <i Mod MAXTITLE) 

•note; these cases are net flexible for different MAXT 
Case 1 

s'spTi tie < i ). Left » sspCard ( i ) . Lef z 
Case 2 

sspTi tie t i ). Left » sspCard ( i ; .Lezz - sspCard < i ). Wi 
sspTicle ! i ). Width 2 
Case 0 

sspTitle(i) .Left = sspCard ( i i . Lef t * sspCard ( i J . Wi 
End Select 
sspTitle ( i ) . ZOrder 
Next i 
End Sub 



Sue PopulateCards ( ) 

'This subroutine reads in the card data from the 

' CARDFILE file defined as a constant. The cards 

'will be numbered 1 to the number lines (cards) 

'in the file. All special cards should come before 

* the home card (by convention I. and are named as 

'constants in the declarations. Each card record 

'should have a level (integer}, iter, selected (integer:, 

'a name (string), an info string (string), and 

'an action code (integer). If the action code is greater 

'than actNEXT , one additional input (variant type: is read 

' fcr the card. 

Dim last As Integer, parent As Integer 

Dim selected As Integer 

Dirr. index As Integer. itercNo As Integer 
Dim level, title, text, action 
Open CARDFILE -or Input As #1 

'make dummy parent fcr top level 
index = 3 

Cards < index) . name = 'root" 
Cards i index) . level « 0 
Cards ( index) .NItems » 0 
While Noc EOF(l) 

last = index 

index = index ♦ 1 

Input **1, level, selected, title, text, action 
Cards < index) . level = level 
Cards t index) .selected = selected 
Cards t index) . name » title 
Cards ( index i . infocext = text 
Cards t index ). acticnCode = action 
If action > actNEXT Then 
Input * 1 . action 

Cards ( index ». actionData = action 
End :f 
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Cards i index i .NItems « 0 'initialize number of items 
If Cards ( index) . level » Cards ( last level ♦ 1 Then 
'Child of last 
5 parent » last 

Elself Cards (index) .level <« Cards ( last ). level Then 
'Sibling or cousin, back up tc find parent 
Do While (Cards ( index >. level < Cards ( last ). level ) 
'Find last sibling 
last = Cards ( last i .parent ^ 
10 Loop 

parent * Cards ( last ) . parent 
£ise 'Skipped a level, text file is incorrect 
MsgBox -3ad level in text file." 
Stop 
End 
End If 

Cards ( index* .parent = parent 
'Add self to parent's list of items 
itemNo * Cards (parent ). NI terns ♦ 1 
Cards (parent ) .NIteir.s « itemNo 
20 Cards (parent *. item ( itemNo) ■ index 

Cards ( index) . self = itemNo 
Wend 

Cards (C) .NItems = 1 
Close #1 
25 End Sub 

Sub tmrBlinkJTimer ( ) 

BlmkCcntroi .Visible - Not Bl inkControl . Visible 
End Sub 

30 Sub TcggleTabs (> 

'toggles offset of tab placement; development only 
Dim i As Integer 
Static offset 
If of f sec * 3 . 5 Then 

offset = 2 
Else 

offset =3.5 
End If 

"or i » 1 To 9 

sspTitle (i) .Top - sspCardd: .Top - sspTi tie ( C ). Height ♦ offset 
40 Next i 

End Sub 

Sub VpcateSel ' ) 

'put blinking highlight in correct location, update info bar 
Dim i As Integer 
Dim x ( V 
Dim S As SSPanel 
Dim text As String 
Dim color 

50 SlinkStop raise 'turn slinking off 
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i 3 Cards (current ). selected 

If i > 0 Then 'something is selected 

Sec S = sspltem(i) 'S is pointer to button 
s • find center of button 

x = S.Left * S. Width / 2 

Y « S.Top * S. Height / 2 

'put blinker behind button 

Centerlcem ssp61ink3G, x, Y 

' resume blinking ^ 
1 <> BlmkStart sspBiinkBG, True 

End Zf 

text = Cards (Cards (current ) . i tew (Cards * current ) . selectee) ) . ir.f otext 
color = sspItem(Cards (current ). selected) .3ackColor 
Setlnfo text, color 
;5 Er.c Sub 

Sub Zoom (n As Integer, C As Control, Dest As Control ) 
"animates control C changing size to control Dest 
2im i As Integer, j As Integer 
Dim dl. dw. dt . dh 
20 dl = (Dest. Left - C. Left J / n 

dw « (Dest. Width - C. Width) / n 
dt s (Dest. Top - C.Top) / n 
dh = (Dest. Height - C. Height) / n 
C . ZOrder 

C.AutoSize » False 
For i = 1 To n 

C.Jiove C.Left * dl. C.Top ♦ dt . C. Width ♦ dw r C. Height * dh 
C . Refresh 
Next i 

End Sub - - ■ 

30 

'====-= SELECT form code »«■=== 

'This form is another attempt at alphabetic input that allows only valid input. 

It relies on the TV titles database which has two tables. The reference table is 
used first 

and contains a count of all items starting with each letter of the alphabet or 
with a 

symbol or number. The user is first presented with a list of possible starting 
letters 

(each item in the first on-screen list may have several letters m it) . Cnce a 
starting 

letter is chosen, a snapshot is made of matching entries :r:r. the table of titles. 
Each list the user sees has only valid choices for rhe next letter, or fuii titles 

a particular title is distinguished from all others by the letters chosen so far. 
The best way to understand is to see the form in action before reading the code. 
45 The code could easily be modified to work with other data such as lists of movies, 

etc . 

nste: the non-proportional font used in the itenvBoxes is Courier New 
Option Explicit 

3ir. ZB As database 'the full database 
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list(lCCC) As String * the list of selection strings 
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Dim leafdOOOI As Integer 'true if nth item is a leaf, false otherwise 
Dir. 1 1 st End As Integer 'number of last element in list 
Dir. currPrefix As String 'the letters chosen so far 

Dim imtialList As Integer 'boolean 'true if this list has multiple letters ; 
Dim Sl^nkControl As Control * not used, currently no blinking object 
Dim itemSelected As Integer 'from 1 to MAXDISPLAY 
Dim locSelected As Integer -from 1 to MAXLOC 

Di.t. rowOf f se t 'difference between cops of two consecutive reduced items 

' database ^ 
Di- ailData As snapshot 
Dim filterData As snapshot 

Dim marker (1GC) As String 'bookmarks of each MAXDISPLAY items 
Dim iocStart(lOC) As Integer ' rltem index for start of locator 

'display parameters 

Const MAXDISPLAY = 6 'Number of items in close up 
Dim MAXITEM As Integer 'Number of items in whole list 
Dim MAXLOC As Integer 'Number of locator positions 

Dim wfcichrlrenuMAXDISPLAY) As Integer 'which rltems are in the current disp 

Const GAP a 10 'space around lists 

Const EXTRA = 70 'room for longer programs 

Const reducedSXTRA » 20 'room for longer programs in reduced rep 

Ccnst T - 50 

Ccnst H = 1000 - 2 * T 

Const locL * 30 'for reduced list 

Const locW = 100 

Const dispL * locW ♦ 2 * loci 'for display list 
Const dispW = 1C0C - dispL - locL 

Sub Blir.kStart (C As Control, vis) 

Set SlinkControl = C 

BlmkControl .Visible » vis 

tmrBlink. Enabled * True 
End Sub 

Sub BlinkStop (vis) 

tmrB link. Enabled * False 

If 31inkControl Is Nothing Then 'do nothing 
Else 

31inkControl .Visible = True 
End If 

Set 31inkControl • Nothing 
End Sub 

Sub ChangeLoc (direct As String) 
page up or down with the locator 
Select Case direct 
Case "Vp" 

If locSelected > 1 Then 

locSelected » locSelected - 1 
RedcDtsplay 
End If 
Case "Sewn" 
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If locSelected < MAJCLOC Then 

locSelected ■ locSelected * I 
RedoOisplay 
End If 
End Select 
End Sub 

Sue ChangeSel (direct As String) 

'Perforrr. list navigation \ 
Select Case direct 
Case "Up" 

If icemSelected > 1 Then 

'move up within iterr.s currently displayed 
itemSelected « itemSelected - 1 
15 selector. Top * iteir3ox< itemSelected) .Top - GAP 

rltem(O) .Top = locator. Top * rowOf f set • (itemSelected - 1) 
Setltemlnfo 
Elself locSelected > 1 Then 
'display previous section of the list 
itemSelected * MAXDISPLAY 
locSelected » locSelected - 1 
RedoDisplay 
End If 
Case "Down* 

If itemSelected < MAXDISPLAY Then 
25 '"ove down within items currently displayed 

*do not move to select an empty item 

If (locSelected - 1) • MAXDISPLAY ♦ itemSelected < MAXITEM Then 
itemSelected = itemSelected ♦ 1 

selector. Top = itemBox ( itemSelected! . Top - GAP 
rltem(O) .Top = locator. Top .♦ rowOffset • (itemSelected - 1 • 
Setltemlnfo 
End If 

Elself locSelected < MAXLOC Then 
'display next section of list 
itemSelected = 1 
35 locSelected » locSelected ♦ 1 

RedoDisplay 
End If 
End Select 
End Sub 

40 Sub DoSelect () 

finish with leaf value or create a new list based on user's choice of prefix 

Dire index As Integer 

Dim count As Integer 

Cim i As .Integer 
4S Dim nextChar As String 

Dim looking As Integer 'boolean 

Dim title As String 

index * locStart (locSelected) ♦ itemSelected - 1 'index m list of item 
selected 

Zi Leaf (index* Then 
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'selection made; show next view 
title * removeAmpersand ( list ( index > ) 
f ilterData. FindFirst "SelectTitle = — & title & 
If filterData.NoMatch Then 

Do 'prompt for different title until found 
note: this should never happen, it's only in the list if it's in the 

database 

title = InputBox ( title 4 " not found. Enter new title; - , title- 
f ilterData. FindFirst "SelectTitle * - - * i title & 
Loop Until Not f ilterData.NoMatch 
End If 

userString » f ilterData ( "FullTitle" > 
Set views ( TV) • frmWeek 
sameFilter * False 
y5 returnCode = SKOWVIEW 

Me. Hide 

Else 

' indicate to user that something :s happening 
itemBox(itemSelected) .3ackColor = greyCOLOR 
Setlnfo "Loading data, please wait...". greyCOLOR 
20 DcEvents 

i = Len{ list ( index) ) 

currPrefix » * " 

If initialList Then 

currPrefix « list (index) 

25 Else 

'remove underline formatting (&) from prefix 
If i > 2 Then currPrefix » Left (list ( index) , i - 2) 
currPrefix * currPrefix & Right ( list ( index) , 1) 
End If 

SetStatus -TV Titles starting with " & currPrefix. greyCOLOR 
'construct new list 
If initialList Then 

'list items are special, not prefixes 
If index ■ 1 Then 

• Symbol or Number selected 
3$ initialList - False 

f ilterData. Filter * "SelectTitle < *A'" 
currPrefix = 

Else 

*a list of letters selected 
listEnd = 0 

For i = 1 To Len (currPrefix) 

•strip out the letters (ignore commas) to make a new list 
If Mid(currPref ix, i. 1) >= -A* Then 
listEnd « listEnd ♦ 1 

list (listEnd) ■ "6* & Mid (currPref ix. i. 1) 
45 leaf ( i J = False 

Znd If 
Next i 
End If 

Else 

•refilter data to match the new prefix 

filzerData. Filter = "SelectTitle like ■- * currPrefix & - * • - 
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End If 

'data assumed to be already sorted 
If Not inirialList Then 

'still need to create new list from data 

Set filterData « f ii terData .CreateSnapshot ( ) 
f il terData. MoveFirst 
listEnd = 0 

For i « AscC -Y To Ascci'i. 'space, punctuation, and le-t— s 
-note: should be fixed up by not trying every sincle one. go st-g-- 
next do item's char ^ 

count * C : looking * True 
While Not filterData .EOF And looking 
1} nextChar = Mid ( f il terData ( "SelectTi t le V> , Len (curr Prefix ) - 1 

If nextChar = Chrti; Or nextChar = LCase ( Chr ; :. ; J Then 
count = count * 1 
filterData .MoveNext 

Else 

looking « False 
End If 

Wend 

Select Case count 

Case 0 *do not add to list 

Case 1 'make a leaf entry 

filterData .MovePrevious 

listEnd » listEnd * 1 

list (listEnd) = fixAmpersand (( filterData < * SelectTi tie * • m 
leaf (listEnd) « True 
filterData .MoveNext 
Case Else 'make a non-leaf entry 
filterData .MovePrevious 
listEnd = listEnd * 1 

list(listEnd) - currPrefix i * C hr < i > 'underline new char 

different ' n ° te: Underlining ia S*«- on * rnechanism for emphasising what 

leaf (listEnd) * False 
f i 1 1 er Da ta . MoveNext 
End Select 
Next i 

If f ilterData . RecordCount <= MAXDi SPLAY Then 

, ' redo the lisc to " us - leaves in it. if they all fit in one 

display 

listEnd ■ D 
filterData .MoveFirst 
While Not filterData. EOF 
listEnd = listEnd - l 

list (listEnd) = fixAmpersand ( ( filterData ( -SelectTi tie- ) > ) 
leaf [ listEnd) » True 
f i 1 1 erDa ta . MoveNext 

Wend 
End If 
End If 
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display the newly created list 
iten\Box (iternSeiected) .BackCclor s itemCOLOR 'restore itemBox color 
ir.itialList « False 
I f listEnd > 1 Then 
5 NewList 
Else 

■automatically select item if only one in list 
IccSelected = 1 
itenSelected » 1 
W\ DoSelect 
End If 
End If 
End Sub 



Sub Foi7r._Activate '. ) 

'always begin with initial list 

LoadData 

NewList 
End Sub 



20 Sub Fcrr.KeyDown (KeyCode As Integer, Shirt As Integer) 

Select Case KeyCode 
Case Asc I "Q" ) 

End 
Case B_BACX 

'note: do we want ability to back up one level from a particular choice in 
25 the lis-.? 

' Could have B_BACK go back one list then back co menu after another press. 
returnCode * BACK 
Me. Hide 
Case B_HEL? 
30 InvokeHelp 
Case B_PREVIEW 
Case B_S ELECT 

DoSelect 
Case B_UP 

ChangeSel ( "Up- ) 
35 Case B.DOWN 

ChangeSel ( "Down* J 
Case B_RIGHT 
Case B_LEFT 
Case B_ PAGEUP 
40 ChangeLoc ( "Up" ) 

Case 3_PAGEDOWN 

ChangeLoc ( " Down • ) 
Case 9 — FILTER 
Case B_C 

returnCode = SHORTCUT 
45 . Me. Hide 

End Select 
Er.d Sub 

Sub Form_ Load ( ) 
SO i As Integer ' counter 
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Dim itemRoom 

'sec colors and fonts 
icemBox (C > . FontSize o largeFONT 
rightArrowt 0) . FontSize ■ largeFONT 
rltem(C) . BackColor » itemCOLOR 
selector . FillColor » highlightCOLOR 
displayList .TillColor * backgrcundCCLOR 
locator .FillColor » backgrouridCOLOR 
itemfiox(O) .BackColor = itemCOLOR 
rightArrowl 0) .BackColor » itemCOLOR 
shpSlot . BorderColor = siotCOLOR 
'size and place the objects to the screen 
SizeAForm Me. DispTop. DispHeight, DispLeft, DispWidth 
Me. Scale (0. 0)-<lC00, 10D0) 

SizeAControl locator, T - GAP, H ♦ GAP. locL - GAP, locW ♦ 2 • GAP 
SizeAControl shpSlot, T, H. locL ♦ reducedEXTRA, locW - 2 * reducedEXTPA 
SizeAControl displayList. T - GAP, H + GAP. dispL, dispW 
locator .20rder 
shpSlot . ZOrder 
rlterotCi . ZOrder 
itemRoom * H / MAXDISPLAY 

SizeAControl itemBox ( 0 ) , T ♦ (.5 * GAFJ , itemRoom - GAP , dispL * EXTRA. dispW 
2 * EXTRA 

SizeAControl lef tArrow < 0 ) . T * (.5 * GAP), itemRoom - GAP, dispL, EXTRA 
EXTRA 1 2 £XTRA Cr01 rightArr ° w ( 0 ' ' T ♦ (.5 • GAP) , itemRoom - GAP , dispL * dispW - . a 

SizeAControl selector, T, itemRoom - GAP, dispL. dispW 
selectcr .ZOrder 
For i « 1 To MAXDISPLAY 
Load itemBox(i) 
itemBoxi i) .Visible ■ False 
itemBoxi i) .Top * i temBox ( 0 ) . Top ♦ (i - 1) • itemRccm 
Load rightArrowt i > 

rightArrowt i> .Top » iteirSox ( i ) . Top 
Next i 
3$ End Sub 

Sub LoadData ( ) 

Dim re f Snap As snapshot 

Ccnst MAXTOG ETHER » MAXDISPLAY 'number of letter allowed in one itemBox 



2S 



30 



40 



45 



50 



Dim togethe: 

fill initial selection list 
listEnd • 0 

Set D3 « Oper.DatabasetTVTitlesi 

Set allData « DB . CreateSnapshot ( "Tit les ■ ) 

'create initial list 

Set refSnap = DB . CreateSnapshot i " Reference" ) 
ref Snap. MoveFirst 

together « MAX70GETHER 'indicate need for new item 
While Not ref Snap. ECF 

Select Case ref Snap ( "Number " > 
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Case 0 

'do not add to list 
Case 1 

'make a leaf entry 
listEnd = listEnd * 1 

allData . FindFirst "SelectTitle like " & refSnapt "Letter - ) & - • ■ 
list (listEnd) = allData ( "SelectTitle" ) 
leaf ( listEnd: = True 
• together »\ MAXTOG ETHER 
Case Else 

If refSnap! "Letter") * Ther. 
listEnd » listEnd ♦ 1 
list t listEnd) « "Symbol or Number- 
together « MAXTOGETHER 
75 'note: DoSelect relies on -his entry being the first list item 

Else 

If together >= MAXTOGETHER Then 
listEnd = listEnd ♦ 1 
list (listEnd) = ref Snap ( "Letter * ) 
together » 1 

Else 

list (listEnd) = list ( listEnd) & • , * & ref Snap ( "Letter * ) 
together - together ♦ 1 
End If 
End If 

25 leaf (listEnd) = False 

End Select 
re: Snap .MoveNext 

Wend 

Set filterData = allData 
initialList = True 
End Sub 



20 



30 



Sub NewList ( ) 

■remakes the display for a new list 

•note: should itemSelected be initialized to something other than 1? 
35 Dim i As Integer "counter 

Dim section As Integer 'count the number of locator locations 
Dim msg As String 



40 



•clear captions 

For i « 1 To MAXDI SPLAY 

itemBox<i) .Caption » 

Next i 



For i = 1 To MAX IT EM 
Unload rltem(i) 
4S Next i 



50 



MAXT7ZM = listEnd • nu_T.be r of items in list 

load the reduced item shapes and size relative to MAX IT EM 
rtwOffset = (H - rlter.(O) .Height) / MAX IT EM 

If rowOffset > r Z tern ( 0 ). Height + GAP Then rowOffset * rl tern { 0 ) . Height * GA? 
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rltem(O) .Visible o False 
rltemlO) .Top = T 

rltem(O) .Left * locL * reducedEXTRA 
5 rltem(O) .Width - locW - 2 • reducedEXTRA 

rltem(O) . BackColor a iteroCOLOR 

f ilterDaca .MoveFirst 

•size and place the item shapes 

*and sec section bookmarks 
,0 section = 0 • number of locator' locations 

For i = 1 To MAXITEM 
Load rltem(i) 

rltem(i> .Top ~ T ♦ a - i ) * rowOffset 
If (<i - 1) Mod MAXDISPLAY) * 0 Then 
'begin a new locator location 
1S section « section ♦ l 

locStart (section) = i 
End If 

If Not leaf(i) Then 



20 



25 



30 



35 



40 



45 



SO 



rrtem(i) .Width * rltem( i ). Width - reducedEXTRA 

rlteiMi) . ZOrder 

rltenHi) .visible = True 
Next i 

MAXLOC * section 

locStart (section ♦ 1) * MAXITEM ♦ 1 

•sec length of minselector 
*use rltem(0> as mini selector 
rlrem(O) .Left = locL - GAP 
rltem(C) .Width = locW * 2 * GAP 

'initialize selector and locator 
itemSelected « 1 
locSelected » 1 

rltem(O) .BackColor n highlightCOLOR 

'set the captions in the itemBoxes 
RedoDisplay 
End Sub 

Sub RedoDisplay ( > 

; JI-o^-ion P ^r ^ itemB ° XeS CO "rrespond to ite,ns in locator 

MrOS4telon locator, selector and set ice* info in info box 

2im lasc As Integer 'nu.T.ber of last icem m display 
^ :in 1 As Integer 'counter 

Zim index As Integer 'index of item in list 

index = locStart ( locSelected) 
For i = 1 To MAXDISPLAY 

If index > MAXITEM Then 

'hide empty itemSox 

itemBcx(i) .Caption = 

iterr3ox (i) .Visible a False 
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righcArrow(i) .Visible » False 

Else 

icemBox ( i ). Caption « list(index) 
If Not leaf (index) Then 

'show right arrow and put in all caps 
rightArrowi i ) .Visible « True 
itemBox ( i ) .Caption - UCase ( list ( index) ) 
. Else- \ 

rightArrow'(i) .Visible * False 
End If 

itemBox ( i ). Visible « True 
last * i 'remember last valid selection 
index « index + 1 
End If 
IS Next i 

'Do not allow blank to be selected 
If itemSelected > last Then 

itemSelected * last 
End If 

20 

' fix the rest of the display 

displayList. Height » H ♦ 2 * GAP - (H / MAXDISPLAY * (MAXDISPLAY - last)) 
selector. Top * itemBox ( itemSelected) .Top - GA? 
locator. Top ■ T ♦ rowOffset • ( locStart { locSelected) - 1) 
25 locator. Height = last * rowOffset ♦ rZtem(O) .Height - rowOffset 

rltemiO) .Top s locator. Top * rowOffset * (itemSelected - 1) 
rlterr.( 0) .Visible ■ True 
Setlter.Inf o 
End Sub 

30 

Function removeAmpersand (oldText As String) As String 
'for each double ampersand, remove one of them 

Dim text As String 

Dim newText As String 

Dim i As Integer 

text » oldText 
newText = " " 
While InStrttext, "&&•) 
i = InStr(text. "&&•) 
newText ■ newText & Left (text, i ) ; 
text - Right (text, Lent text) - (i * 1)) 
Wend 

removeAmpersand » newText & text 
End Function 

4$ Sub Setltemlnfo () 

•pur the relevant info for current item into info box 
Dim msg As String 
Dim index As Integer 
Dim F As snapshot 



35 



40 



SO 



If Me. Visible Then 
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15 



20 



45 



index « locStarc { locSelected) - itemSelected - - 
Zi leaf (index) Then 

'gee full title from data 

Set F = filterData 

F.Fir.cFirst "SelectTitle = u list(ir.dex) & - • • 

msg = F( "FullTitle" ) 

Else 

msg = "Titles beginning with ' - & list: index) i 
End If \ 

Setlnfo rrtsg, ( itemBox ( itemSelected) . BackCc" ^) 
End If ~ 
End Sub 

Sub tmr3Iink_Timer () 

3lin*Controi. Visible - Not SlinkControl . Visible 
End Sub 

' maauww START form Code mmssMm 

'This startup form allows the developer to choose display mode 
(either for ?C, TV, or mini PC for making screen prints) 
then starts the actual prograir. by calling Main 
Option Explicit 



Sub Form_Load ( ) 

returnCode = STARTUP 
2$ End Sub 

Sub rainiButton_Click () 
displayMode = "mini* 
Unload Me 
Main 
30 End Sub 

Sub PCbutton.Click () 
displayMode « "PC- 
Unload Me 
35 Main 
End Sub 

Sub TVbutton.Click ( ) 
displayMode « "TV" 
Unload Me 
40 Main 
End Sub 

•==*= = = TV form code 

This form pretends to show . TV program or record it. if it is not currently on 

Option Explicit 

Const GA? a 700 

Sub Form_Activate ( ) 
50 Dim msg As String 
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Dim DB As database 
Dim Programs As cable 
Dim startTime 
Dim refSnap As snapshot 
Dim refDate 

Dim startTS. finishTS, nowTS 
Set DB = Oper.Database (TVD3) 

Set refSnap » DB . CreateSnapshotJ, "Reference " ) 
ret Snap . FindFirst 'Name = * Date 
refDate = DateValue ( ref Snap < "Data" ) ) 
Set Programs = DB.Open7able( "Programs" ) 
Prograr.s . Index » "ID" 

Programs . Seek " = " , userStation, userStart 

'note: ought to check that userStation is valid 

If Programs .NoMatch Then 

'simulate showing whatever is currently on userStation 

nowTS = DateDif f ( "n" , refDate. fakeToday ♦ fakeTime! \ 30 

Set ref Snap = Programs . CreateSnapshot ( ) 

ref Snap. FindFirst "Station = " fc Str (userStation) 

refSnap.FindNext "FinishTS > - & StrtnowTS) 

msg * "You are watching " 

msg = msg & Chr(13) & Format < ref Snap ( "Title ") ) 

msg = msg t ' on - i StationString < ref Snap { "Station" ) ) 

msg = msg & Chr(13) & Format (ref Snap < "Start" ) , "h:mm AM/PM") 

msg = msg * to " & Format (re£Snap< "Finish" J , "h:mm AM/PM" ) 

Else 

'decide if the program is on. record if it's not 
startTS » DateDif f < -n" , refDate, Programs ( "Start ") ) V 30 
finishTS » DateDif f ( -n" . refDate. Programs (" Finish" ) ) \ 30 
nowTS « DateDif f ( "n" . refDate. fakeToday - fakeTime) \ 30 
* nowTS would be calculated to work in real time 
If startTS <= nowTS And finishTS >* nowTS Then 
msg = "You are watching " 

Else 

msg = "The VCR is set to record " 
End If 

msg » msg & Chr(13) & Format ( Programs ( "Title" ) ) 
msg ■ msg & " on • & StationString t Programs ( "Station" ) ) 
msg = msg & Chr(13) & Format ( Programs (" Start ") , "h:mm AM/PM") 
msg = msg & " to • & Format (Programs ( "Finish" ) . "h:mm AM/PM") 
Sad If 

textArea .Caption » msg 
nd Sub 

ub Form_KeyDowr. (KeyCode As Integer, Shift As Integer) 
Seiect Case KeyCode 
Case 3_BACK 

returnCode = LASTVITW 

•note: this is not appropriate if we came from menu (rolodex) 
Me. Hide 
Case B_0 

returnCode = SHORTCUT 
Me. Hide 
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Case Asc ( m Q" ) 

End 
Case Else 

returnCode » BACK 

Me. Hide 
End Select 
End Sub 

Sub Form__Load ( ) \ 

textArea .Caption » • ■ 

textArea. FontSize = largeFONT 

SizeAFcrm Me, 0, ScrHeight, 0, ScrWidth 
*-d |.]" AControX tex:Arw ' GAP - ScrHeight - 2 • GAP, GAP , ScrWidth - 2 • GAP 



TV_GUIDE form code 
General remarks: 



The Main procedure starts the ball rolling by showing the Frame, loading 
-tatVZ forms and then showing the rolodex menu. Control is tranf erred from form 
20 ni^l^*: f° Ug - • USG ° £ th# retu « c ^ e variable (see list of return codes in 

global declarations). The frmDex, for example, sets the returnCode tc 3HOWVIEW and 
re'u^nCode Cau8es to become active. rrmFrame looks at the 

•and shows the current domain's view form. Communication between forms is done 
*.nrougn 

25 'a variety of variables, since a form's procedures are not accessible from outside. 

Option Explicit 

Global Declarations 

30 'database constants 

Global Const CARDFILE - "c:\pctv\db\cards2.txt- 

Global Const MVDB = • c : \pctv\db\plots .rndb" 

Global Const SPDB » "c:\pctv\db\shopping.mdb- 

Glcbal Const TVDB * *c : \pctv\db\big .mdb" 
3S Global Const TVTitles = "c:\pctv\db\titles.mdb" 

Const CATDB « "c:\pctv\db\cats.mdb" 

Din\ typeTable As table * TV type IDs 

Dim catTable As table ' TV category IDs 

Dim statTable As table 'station IDs 

Global fakeToday 'keep the day constant 
40 Global fakeTime 'keep the time constant 

Global displayMode As String 'display set for "PC- or "TV - {affects size of *on-» 
ana graphics) w 

Global newuser As Integer 'boolean 'when true, give extra helps 
4S Global ScrWidth, ScrHeight 

insidi °ie P frLe DlSPHei9hC ' 0ispL-fE * = is P"i** 'display area available to forms 

'Colors 

Global Const highlightCOLOR = &KSC80FF 'recish 
50 Global Const backgroundCOLOR = &H80FFF" 'yellow 
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Global 


Cons t 




&HFFFFC0 


* light blue 


Global 


Cons t 


f o rmCOLOR — 


StHFFOOOO 


'dark blue 


Global 


Const 


whiteCOLOR 


= &H80000005 


•white 


Global 


Const 


greyCOLOR » 


4HC0C0C0 


•grey 


Global 


Const 


blaclcCOLOR 


* StHOfit 


'black 


Global 


Const 


slotCOLOR * 


&H80000005 


•white 


Global 


Const 


borderCOLOR 


- &HFF& 


•red 


Global 


Const 


divideCOLCR 


» &HFFFF& 


' white 


Global 


Color 


1 10 J "array 


filled in Mai 


n 



•font sizes 

Global Const smallFONT = 13.8 
Global Const mediumFONT = 18 
Global Const largeFONT = 24 



'domain constants 
Global Const MOVIE » 0 
Gl obal Const TV » 1 
Global Const SHOP « 2 



'array of list forms 

Global listFrmO) As Form 

Global TVlist As New f rmList 

Global MOVlist As New frmList 

GloDal SHO?list As New frraList 



Inter-Form Communication 



Global currDomain As Integer 'the current domain 

Global filtera(3) As String 'array of query strings for current domain filter 

Global currFilter (3) As String * text name of filter 

Global currView{3) As String 'text name of current view {use mainly for lists which 

change view title! 

Global views (3 J As Form 'array of current domain views (TV coming or TV schedule, 
for instance) 

Global viewFilter As String * the database filter needed to obtain the appropriate 
view 

•note: used only for movies at this time, would probably be expanded to array 

Global userString As String 'string chosen by user 

Global userMsg 'message string to display to user 

Global userStation 'a scation selected by user 

Global userStart 'a time chosen by user 

Global sameFilter As Integer 'boolean 'true if need to refilter data 

Global sameView As Integer 'boolean 'true if need to redo display 

•return codes determine which action to take on re-activate of frmFrame or frmDex 

Global recurnCode As Integer 

Global Const BACK « 0 

Global Const TOTV • 1 

Global Const LASTVIEW = 2 

Global Const SHORTCUT * 3 

Global Const DONE = 4 
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Global Corse FILTER « 5 
Global Const COMING * 6 
Global Const SHOWVIEW = 9 
Global Const ALPHA = 10 
Global Const PICK * 11 
Global Const STARTUP = 12 



Define Type Card 
for rolodex 



Global Const MAX ITEM = 9 'max number of buttons on a card 

Represents one index care as viewed on screen 
Type Card 

self As Integer 'iter, number of self on parent 
level As Integer 'number of cards away from root 
name As String 'text to appear on button/card 
infotext As String 'text for info bar 

actionCcde As Integer 'code for action to take when chosen 
actionData As String * extra info needed for action 
parent As Integer 'number of parent card 

NItems As Integer 'number of buttons visible on card 

I tern ( MAX IT EM ) As Integer 'array of card pointers (one for each 
selected As Integer 'the number of the selected button 
End Type 

'Array of up to HAXCARDS index cards 
Global Const MAXCARDS « 1000 
Global Cards (MAXCARDS) As Card 



Remote Buttons 



'assigned values in sub SetKeys 

Global B.BACK 

Global B_ HELP 

Global B_PREVIEW 

Global B_UP 

Global B.DOWN 

Global B.LEFT 

Global B_RIGHT 

Global B_SELECT 

Global B_PAGE*JP 

Global B_ PAGEDOWN 

Global 3_1 

Global B_2 

Global B_3 

Global B_4 

Global B_S 

Global B_6 

Global S_7 

Global B_8 

Global B_9 
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20 



35 



45 



Global B.C 
Global B.FIL7ER 



COLORS 



Global Const RED » &HFF& 
Global Const ORANGE = &H80FF& 
Global Cense YELLOW = &HFFFF& 
10 Global Const GREEN = &H30FF60 

Global Const TURQUOISE * &HFFFFCC 
Global Const 3LUE » fcHFFOOOO 
Global Const VIOLET * &HFF0CFF 
Global Consc WHITE » &HFFFFFF 
Global Const 3 LACK * &H0& 
Global Const GREY = &HC0CCCC 



CONSTANTS FROM VISUAL BASIC FILES 



* Fron CONSTANT . TXT 



' Key Codes 

Global Const KEY.LBUTTON = &H1 
2S Global Const KEY.RBUTTON = kH2 

Global Const KEY_CANCEL = &H3 

Global Const KEY.MBUTTON « &H4 * NOT contiguous wich L & RBUTTON 
Global Const KEY.BACK « &HS 
Global Const KEY.TAB « &H9 
Global Const KEY.CLEAR = &HC 
30 Global Const KEY. RETURN = &HD 

Global Const KEY.SHIFT * fcHIO 
Global Const KEY^CONTROL = iHll 
Global Const KEY.MENU = &H12 
Global Const KEY. PAUSE ■ &H13 
Global Const KEY.CAPITAL « &H14 
Global Const KEY. ESCAPE « &H1B 
Global Const KEY. SPACE = iH20 
Global Const KEY.PRIOR « *H21 
Global Const KEY.NEXT * &H22 
Global Const KEY.END = &H23 
40 Global Const KEY.HOME * &H24 

Global Const KEY.LSFT » &H25 
Global Const KEY.UP e &H26 
Global Const KEY.RIGHT = &H27 
Global Const KEY.DOWN = &H28 
Global Const KEY. SELECT = &H29 
Global Const KEY_ PRINT - &H2A 
Global Const KEY.EXECUTE * 4H2B 
Global Const KEY.SNAPSHOT = &H2C 
Global Consc KEY. INSERT * &H2D 
1 Global Const KEY.DELETE = &H2E 

SO Global Const KEY.HEL? * &H2F 
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KEY_A thru KEY_Z are the same as their ASCII equivalents: ' A ' thru 
KEY_0 thru KEY_9 are the tame as their ASCII equivalents: '0* thru 



W 



IS 



20 



2S 



30 



Global 
Global 
Global 
Global 
Global 
Glcbal 
Glcbal 
Global 
Global 
Globa 1 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 



Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 



KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 
KEY. 

KEY;. 

KEY. 
KEY. 
KEY. 
KEY. 



.NUMPADO ■ 

.NUMPAD1 * 

.NUMFAD2 * 

.NUMPAD3 * 

.NUMPAD4 = 

NUMPAD5 » 

.NUMPAD6 = 

.NUMPAD7 a 

NUMPAD8 a 

.NUMPAD9 - 
.MULTIPLY 



&H60 
&H61 
&H62 
&H5 3 
&H64 
&H6 5 
&H66 
4H67 
&H68 
&H69 
• &H6A 



.ADD = &H6B 
SEPARATOR = &H6C 
SUBTRACT = 4H6D 
DECIMAL * &K6E 
DIVIDE = &K6F 
Fl « &H70 
&H71 
&H72 
&H73 
&H74 
fcH75 
&H76 
&H77 
&H78 
&H79 
&H7A 
&H7B 
F13 « &H7C 
F14 « &H7D 
&H7E 
fcH7F 



F2 - 

,F3 ■ 
,F4 = 
75 = 
F6 * 
F7 < 
F8 - 
F9 « 
F10 
,F11 
F12 



F15 
716 



35 



Global Const KEY.NUMLOCK » &H90 



40 



Function CategoryString (typeCode As Integer, catCode As Integer » As String 
creates user-reabable string for a TV program's category 
Dir. rr.sg As String 



45 



SO 



r.sg « "Category: " 
' look up type code 
typeTable . Index = "ID" 
typeTable . Seek typeCode 
If typeTable .NoMatch Then 
r.sg « msg & typeCode 

Else 

~sg » msg & typeTable ( "Name " > 
End If 

msg ■ msg k ' , " 'all on one line, replaced: Chr(13> & "Subcategory: 
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'look up category code 
catTabie. Index « " ID" 
catTabie. Seek catCode 
If catTabie. NoMatch Then 
msg = msg & catCode 

Else 

msg • msg & catTabie ( "Name* ) 
End If 

CategoryStr ing * msg 
End' Function 

5 lib CCcpy (Cfrom As Control. Cto As Control) 
'copies attributes of CFrom control to CTo 

Cto. Caption = Cfrom. Caption 

Cto . BackColor = Cfrom. BackColor 

Cto. Top = Cfrom. Top 

Cto. Height ■ Cfrom. Height 

Cto. Left » Cfrom. Left 

Cto. Width « Cfrom. Width 

Cto.FontSize = Cfrom. FontSize 
£nd Sub 

Sub Centerltem (Item As Control, x, y) 
'centers a control around a point 

Item. Left « x - Item. Width / 2 

Item. Top » y - Item. Height / 2 
End Sub 

Sub CPlace (extra. Cfrom As Control. Cto As Control) 

'place Cfrom in the sane place as Cto, with difference extra 

Cfrom. Top » Cto. Top - extra 

Cfrom. Left » Cto. Left - extra 

Cfrom. Height - Cto. Height ♦ 2 * extra 

Cfrom. Width « Cto. Width ♦ 2 * extra 
End Sub 

Function DayString (d. length As String) As String 

'returns string for appropriate day of week based on date given 

' and length specified 

Select Case Weekday (d) 
Case 1 

If length » "long- Then 
DayString s •Sunday" 

Else 

DayString * "Sun" 
End If 
Case 2 

If length * "long" Then 
DayString * "Monday" 

Else 

DayString = "Mon" 
End If 
Case 3 

If length = "long" Then 
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DayString = "Tuesday" 

Else 

DayString « "Tue" 
5 End If 

Case 4 

If length «= "long - Then 

DayString « 'Wednesday" 

Else 

DayString = "Wed* 
to £nd If 

Case 5 

If length = "long" Then 

DayString = "Thursday- 
Else 

DayString = "Thur" 
15 End If 

Case 6 

If length s -long" Then 

DayString * "Friday- 
Else 

20 DayString = "Fri" 

End If 
Case 7 

If length = "long" Then 

DayString * "Saturday* 

25 E1Se 

DayString » "Sat" 
End If 
End Select 
End Function 

30 Function f ixAmpersand (text As String) 

■put in a "&&" for every "4" ao ampersand will print instead of forr^at an underline 
Dint i As Integer 
Dim oldText As String 
Dim newText As String 

35 

newText » 
oldText * text 
While InStr (oldText . •*•) 
i » InStr (oldText. "fit") 
newText « Left (oldText , i - 1) & "ii" 
40 oldText • Right (oldText, Len(cldText) - i) 

Wend v 
f ixAmpersand = newText & oldText 
End Function 



45 . Sub invokeKeip t) 

"add parameter for current location or give each torn a locai InvokeHelp 
•would be specialized for each view, probably not each button 

TeliUser "Press Help (?) again for general help, or press any button on the 
remote for help with that button." 
Select Case returnCode 
SO Case 3_KELP 
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45 



TellUser -General Kelp:* 
Case 3_PREVIZW 

TellUser "Use the Preview button to see a video preview or the highligh-ed 
selection . " 

Case B.BACK 

TellUser "Use the Back button to back up to the previous screen." 
Case KEY_ESCA?E 

TellUser "Use the Shortcut key tc get to the shortcut buttons." 
Case B_SELECT 

TellUser "Use the select, button to choose a highlighted option. " 
Case Else ^ 

TellUser "This help screen is not written yet." 
End Select 
End Sub 



Sub Mam [ ) 

Dirt i As Integer 
Dim DB As database 
Set DB = OpenDatabase (CATDB) 
Sec typeTable = DB.OpenTable { "Type" > 
20 Set cacTable « DB . OpenTable ( "Category" ) 

Set D3 » OpenDatabase (TVDB) 
Sei statTable ■ DB . OpenTable { " Scat ions " ! 
SetKeys displayMode 
'set different list forms 
Set listFrm(TV) = TViist 
Set listFrm (MOVIE) * MOVlist 
Set listFrm (SHOP) = SHOPlist 
'set color array 

Color (0> « &HBFBFC0 'teal green 
Color (1) - &HFFFF80 'light blue 
30 Color (2) = &HFFCCFF 'light pink 

Color (3) = itHFFSCFF 'dark pink 
Color (4) * &HS0C0FF 'medium orange 
Color (5) = &HC0FFC0 'lightest green 
Color (6) m &KFF8080 'royal blue 
Color (8) « fcHFFCOCO * lavendar 
Color (7 j * &HC0C0& 'ochre 
'sec date and time 
fakeToday = CVDace i " 6 /12/94 " ) 
fakeTime = CVDate("6:30 PM" i 

40 newUser = True 

'star: up the forms 
f rrr.Frarne . Show 
DcEvents 

'load all fonr.s here 
Load frmDex 
Lead frmAlpha 
Load frmTV 
Load frmMsg 
Movie forrr.s 
SO c-rrDomain = MOVIE 
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viewFilcer e -Year >= 1993" 
currView(MOVZE) = -Recent Movies' 
currFiXter (MOVIE) * - : All Categories' 
SetStatus "Movies'. greyCOLOR 
Load listFrm(MOVIE) 
'Shopping forms 
currDomair. » SHOP 
f i Iters (SKOF; » * - 

SetStatus "Shopping, compact disks,". greyCOLOR 
Load listFra(SHOP) 
'TV forms 

currFil ter (TV) * "Basketball- 

currDomain = TV 

filters (TV) * "Category - 39" 

userString » "Nova" 

' Load f rmWeek 

■Load listFrr.(TV) 

'Load frmConing 

'Load frmWkday 

'Load frmSelect 

'show main menu 

SetStatus "Use arrows and select or use keypad.". greyCOLOR 
frmDex. Show 
End Sub 

Function Overlap (beginTS, endTS) As String 

'create query string to look for TV programs in the range between 
' and including beginTS and endTS 

Overlap = • (StartTS " & Str (endTS) & - And FimshTS >= " & 
End Function 

Sub Setlr.fo (text As String, Color) 
'update the info box text and color 
Dim s As SSPanel 

Set s = f rzfrawe ! ssplnf o 'works as long as form is loaded 
s.BackCoior * Color 
s. Caption = text 
End Sub 

Sub SetKeys (mode As String) 

'Set the keymappings for keyboard or "remote" 
B_l = KEY.MUMPAD7 
B_2 = KEY_NUMPAD3 
B_3 = KEY_NUMPA39 
B_-l « KEY_NUMPAD4 
B_5 a KEY.NUMPADS 
3.6 = KEY.NUMPA06 
3_7 = KEY.trjMPADl 
3_8 = KEY.NUMPAD2 
3_9 = KEY_^JMPAD3 
If mode = "TV" Then 

'use keypad for all buttons (except l-9> 
B_3ACK * KEY_SU3TRACT 
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B.HEL? « 13 'I don't know what the name of this key is 
B.PREVIEW * KSY.ADD 
B.UP « Asci -8- ) 
B.DOWN = Asc<-2") 
B.LEFT = Asc("4") 
B.RIGHT * ASC( "6- ) 
E_ 5 ELECT = AscC£- ) 
3.PAGEU? = KEY.DIVIDE 
B_ PAGEDOWN = Ase ( - 0 " i 

3.0 = KEY.MULTIPLY \ 
3. FILTER - KEY.RETURK 

Else 

3.3ACK * KEY.F1 
3.HEL? a KEY.F3 
IS B_?REVIEW » KEY_F2 

B_U? » KEY.UP 
B.DOWN = KEY.DOWN 
B.LEFT » KEY.LEFT 
B.RIGHT « KEY.RIGHT 
B. SELECT « KEY.RETURN 
B.PAGEUP * KEY.PRIOR 
B. PAGEDOWN - KEY. NEXT 
B.O = KEY.NUMPADO 
B. FILTER = KEY.F4 
End If 
25 End Sub 

Sub SetStatus (text As String, Color) 
'update the status bar with new message 
Dim s As SSPanei 

Set s * f rmFrame ! sspStatus * (works as long as form is loaded) 
s.BackColor = Color 
s. Caption = text 
End Sub 

Sub SizeAControl (Item As Control, c, H, 1. w) 
35 'set the size attributes of a control 

Item. Top = t 

Item. Left = 1 

Item. Height = H 

Item. Width = w 
End Sub 

40 

Sub SizeAForm ( f rm As Form, t. H. 1, wi 
'set the size attributes of a form 

fr^.Top = t 

frm.Left * i 
45 frm. Height = H 

frm. Width * w 
Er.d Sub 

Fur.cticr. S tat ionSt ring (s) As String 
gQ ' looks up station number and returns station name as string 

statTable . Index = "ID" 
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statTable. Seek s 

If statTable . NoMatch Then 

MsgBox -illegal station ID " & s 

Stop 
End If 

Stat ior.Stririg ■ statTable ( "Name " ) 
End Function 

Sub TeiiUser irr.essage As String) 

'displays message on screen until key is\pressed 
•probably would not be used 

userMsg » message 

Wait frmMsg 
End Sub 

Function TimeLabel ft) As String 

'returns null string for tiroes on half hour. 

* returns hour 1..12 otherwise 

Dim s As String 

s « Format(t. *hh:mm AM/PM" ) 

If Mid(s, 4, 2) - -30- Then 
Time Label ■ 

Else 

s = Formatts, "h AM/PM" > 
'strip off AM/PM 
TimeLabel = Leftls. L«n(s) - 3) 
End If 
End Function 

Function TimeString (aDate) As String 

•format a date as 12-hour time without AM/PM or leading zer 
Di.t. theTime As String 

theTime = Format (aDate . "hh:mm AM/PM* ) 
theTime * I^ft ( theTime . 5) 'take just "hhirom" part 
If Left( theTime, 1) « "0- Then 
theTime « Right ( theTime , 4) 
End If 

TimeString ■ theTime 
End Function 

Sub Wait <F As Form) 

•Allows one form to wait for another to hide itself 
F . Show 

While (F. Visible) 
DcEvents 

Wend 
End Sub 

•ssssss WEEK form code ====== 

Option Explicit 

•stacked channel' view to be used with TV search and 

• possibly other minimal searches {would need modification 

Dim allData(9> As snapshot 'all data within time period 
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Din filterData (8 } As snapshot 'a snapshot for each day in the view 

Dim NDays As Integer 'number of days in display 

Dm NSlots As Integer 'number of time slots in display 

Dim NProgs As Integer 'number of programs in display 

Dim coiorField As String 'the database field that determines item color 

' (the field should contain an integer) 
Dim in?review As Integer 'boolean 'if true, preview should show 
Dim refDate reference date for data time slots 
Dim siotsPerDay As Integer 'number of slots allowed per day 
Dim currDay number cf current day 

Dim dayWidth As Integer 'width of day labels y 

Dim lblHeight As Integer 'height of day labels 

Dim infoHeight As Integer 'height of specialized info panel 

Dim timeHeight 'height of time labels 

Din startTime 'beginning time for view 

Dim TSBegin As Long 'first time slot of current day 

Dim TSEnd As Long 'last time slot of current day 

Dim TScurrent As Long 'time slot of current program 



25 



Sub ApplyFilter {) 
20 ' filter for a particular show by title in userString 

Dim i As Integer 'counter 

'create snapshot for each day 
For i = 1 To NDays 

allDatali) . Filter = "Title = & userString & 

Set f ilterData ( i ) « allData ( i ) . CreateSnapshot ( ) 
filterData ( i) . Sort « "StartTS" 

Set filterData i i ) « filterDaca ( i ). CreateSnapshot < ) 
Next i 
End Sub 

30 

Sub ChangeSel td As String) 
•perform view navigation 

Dim current ' as database marker 
Dim success As Integer 'boolean 
Dim s As Integer 'station number 
Dim best 
Din TS As wong 'time slot 
Dim F As snapshot 
Dim aDay As Integer 
Dim marker 'as bookmark 
40 Dm arrows As String 
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'save values, initialize values 
current = filterData ( currDay) . Bookmark 
Sec F = filterData (currDay) 
4S s = f« -Station" > 

TS * TScurrent 
aDay « currDay 
success « False 

Select Case d 
SO Case "Right" 
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'move co later time, same day 
F.FmdNext "StartTS > • «, strfTS) 
success » Not F.NoMatch 
If success Then 

•check if info arrows needed 
TS * F( -StartTS") 
F. MoveNext 
If Not F . EOF Then 

It F ( "StartTS- j « TS Then 
-nf ©Arrows "down" 

Else 

infoArrows "none* 
End If 

Else 

15 infoArrows "none" 

E. nd If 

F. MovePrevious 
End If 

Case "Left" 

'move :o earlier time, same day 
F.FindPrevious "StartTS < - & strcTSi 
success - Not F.NoMatch 
If success Then 

TS = F( "StartTS") 
'go to top of column 
F.FindFirst "StartTS * - & StMTS) 
TS » F( -StartTS") «.(TS, 
'check if info arrows needed 
F . MoveNext 
If Not F . EOF Then 

If F{ -StartTS-) * TS Then 

infoArrows "dowr* 
Else 

infoArrows -none" 
End If 

Else 

35 in f oArrows • none " 

End If 

F . Move Previous 
End If 
Case "Down" 

aDay - aDay ♦ 1 : TS »"ts * 48 "° ^ an ***^* **P*Y 

While Not success Ar.d aDay <= NDays 
Sec F = filterDaea(a-)ay) 

If Not F . EOF Then 
success a True 

sn Ts * "StartTS -I 

50 End If 
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ll "- MV9 program to right, mum t^e slots away, check left 
marker « F. Bookmark 
best » :<-S:artTS" ) - TS 
F . r ind-asc "StartTS <* " & Str(TS) 
If F.NoMatch Then 

•no prog to left, take program to right 

?.3ookmark = marker 

TS = TS - best 

Else . 

•check distances from previous time s.ot 
If TS - F< "StartTS-) > best Then 

'right prog closest 

F. Bookmark » marker 

TS * TS - best 

Else 

'left prog closest 
TS = FfStartTS") 
End If 
End If 

•either way, we found a program 
success = True 
End If 

aDay = aDay * 1 : TS - TS ♦ 46 

wend 

aDay = aDay - 1 : TS * T3 - 48 
If success Then 

'make sure to be at the top of a column 

F FindFirst -StartTS * - 4 Str(TS) 

If F . NoMacch Then Stop 'how did we get a TS with no program 
TS = Fv "StartTS" ) 
•check if info arrows needed 
F . McveNext 
Zt Not F.ECF Then- 

If FfStartTS-) = TS Then 
inf oArrows " down - 

Else 

in f oArrows " none " 
End If 

Else 

infoArrows "none" 
End If 

F . MovePrevious 
End If 

"•Se to earlier day, trying to keep close to previous time slo 
If NPrcgs < 1 Then Exit Sub 'do nothing if all snapshots empty 
aDay = aZay - 1: TS « TS - 48 
While Nc: success And aDay > 0 
Set F « filterData(aDay) 
F. FindFirst -StartTS > " i Str(TS) 
If f. NoMacch Then 

'no prog to right, lock left 
If Not F.EOF Then F.McveLast 
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If Not F.EOF Then 

success = True 

TS = FCStartTS") 
End If 

^^•save program to right, coon-, time slots away, look left 
marker - F. Bookmark 
best » FCStartTS") - TS 
F . F indLast "StartTS <= " & Str(TS) 
If F.NcMatch Then 

■r.c prog to left, take program to right 

F. Bookmark « marker 

TS a TS • best 

Else 

•check distances 

If TS - FCStartTS-) > best Then 
'right prog closest 
F. Bookmark = marker 
TS 3 TS * best 

Else 

♦ left prog closest 
TS - F( -StartTS" > 
End If 
End If 

'either way, we found a program 
success s True 
End If 

aOay = aDay - 1: TS « TS - 48 

Wend 

aDay = aDay ♦ 1: TS « TS ♦ 48 
If success Then 

*rr.ake sure to be at the top of a column 

F FindFirst -StartTS = " & Str(TS) 

If F.NoMatch Then Stop 'how did we get a TS wxth no program 
TS - F t "StartTS" ) 
' check if info arrows needed 
F . McveNext 
If Not F . EOF Then 

If FCStartTS") - TS Then 
info Arrows "down" 

Else 

ir.ioAxrcws "none" 
End If 

Else 

infoArrows "none" 
End If. 

F . Move Previous 
End I f 
se 'Next" 

•find next program, same time and day 

F . MoveNext 

If Not F.EOF Then 

•success -eans still in same tine slot 

success « FCStartTS-) * TS 
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End It 
' set arrows 
If success Then 
F .MoveNext 
arrows » "up" 
If Not F . EOF Then 

Zi Ft "StartTS") ■ TS Then arrows = "both" 
End If 

F . MovePrevious 
infoArrows arrows 
" End If 
Case H Prior " 

•find previous prograrr.. same time and day 
F . MovePrevious 
If Not F . BOF Then 
,5 'success means still in same time slot 

success - F ( "StartTS** ) « TS 
End If 
• set arrows 
If success Then 
20 F .MovePrevious 

arrows = "down" 
If Not F.BOF Then 

If F< "StartTS" ) = TS Then arrows = "both" 
End If 
F . MoveNext 
infoArrows arrows 
End If 
Case "none" 

■stay at current program, update the arrows (used at startups 
If Not F.EOF Then 
30 F • MoveNext 

arrows = "none" 
If Not F .EOF Then 

If ?( "StartTS") = TS Then arrows « "down" 
End If 

F . MovePrevious 
35 infoArrows arrows 

End If 
End Select 

If success Then 
40 'update 

TScurrent « F ( "StartTS" ) 
currDay * aDay 
DispiayProg 

Else 

'restore database position 
45 f ilterData (currDay ) . BooknarJc » current 

End If 

'set begin and end time slots for current day 

TSBegin » DateDif f ( "n" . ref Dace. (startTime * currDay - 1 ; • - 3C 
TSEnd « TS3egin ♦ slotsPerDay - 1 

SO — = Sub 
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Sub Disp iayProg ( ) 

'se: info box with current program info and highlight position 
Dim F As snapshot 
Dim r.sg As String 

Set F = i ilterData (currDay) 

r.sg * 3tationString(F( "Station" ) ) & " ; " i Format ( F ( -Start "> , "h :mir. AX/PX" ! 

msg - msg.* " to • & Format i F ( "Finish" : . "h;mm AM • PM . ") 
,T,sg - msg k Format t F t "Title ") ) 

r.sg = msg i Chr(13> & "(episode info here)" '& Format ( F ( "Episode "' ; 

'note: current database does not contain episode information 
Setlnfo msg. Color < F ( color Field) Mod 9) 

shpprog i D ). Visible * False 
selector . Visible » False 

Position shp?rog(Ol. F ( "StartTS" ) , F ( " FmishTS" ) 
CPlace 0. selector. shpProgtO) 
shpPrcg { 0 ). Visible • True 
selector . Visible « True 
End Sue 

Sub Do Preview ( ) 

'Construct an appropriate preview message and display 
Dir. r.sg As String 

risg = f ilterData (currDay ) { "Title" ) 

nsg - msg i Chr(13> & "on " & StationStrir.g ; f ilterData < currDay) ( "Station" ) ) & 

Car; 13) 

r.sg = msg i CategoryString (( f ilterData (currDay )( "Type" )) , 

' f ilterData (currDay) ( "Category" l ) ) 

msg = msg & Chrll3) "fc DayStrir.g (Weekday ( fi IterDataicurrDay )(" Start ")) , "long") 
r.sg = msg & ", " i Format ( t ilterData (currDay) ; "Start " ) , "mmm d, yy h:mm AK/?M"> 
msg - msg St Chr(13) fit " to • & Format ( f ilterData i currDay )< "Finish" ) , "h:mm 

AX/PK") 

popup . Caption » msg 

SizeAContrcl popup, ( IblTime ( 1 ) . top +1.5 • lblTine { 1 ). Height ) , 12, 
(lblDaydi .Width! , 45 

popup . Visible ° True 

in Preview = True 
Er.d Sub 

Sub DoSelect ( ) 

'set data for selection and go to TV 

userStation = f ilterData ( currDay );" Stat ion" ) 
userStart = f ilterData { currDay >( "Start " ) 
retumCode = TOTV 
Me. Hide 



Sue DrawProg (duplicates As Integer, index As Integer i 

'draw a prograjn shape in display, marking it if there are duplicates at the 
idsr.tiral tire slot 
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' shpProg (0) should be at the desired location 
Dim above, below, side, wide 
Const GA? = .3 

above » shpProg t 0 ) . top 
below - shpProg (0 ) . Height 
side = shpProg (0 J . Left 
wide « shpProg (0 J .Width 

"oreColor = biackCOLOR "line ccl:r, thin black outline 
FillStyle = 0 'solid., 
drawwidth = 1 \ 



Seiec: Case duplicates 
Case 0 

'draw the prograr. in the given color 
15 fillColor » Color (index) 

Line (side, above)-iside * wide, above + below - .5 * GAP), . B 
Case 1 

'draw the prograr. in grey and mark iz 

fiilColor = greyCOLOR 'indicate duplicates (which may be of different 

colors ) 

Line (side, above) -(side «• wide, above * below - .5 • GAP). . E 
'draw icon 
above » above * GAP 
side « side * GAP 
wide = 2 • GAP 
25 drawwidth = 2 

Line (side, above) -(side ♦ wide, above ♦ wide) 
Line (side, above - wide) -(side * wide, above) 

Line (side, above - .5 * wide) -(side ♦ wide, above + .5 * wide) 
Line (side «- . 5 • wide, above)-(side ♦ .5 • wide, above ♦ wide) 
Case Else 

•no need to redraw duplicate marks 
End Select 

End Sub 

35 Sub Form_Activate ( ) 

Dim i As Integer 'counter 
Static saveFilter As String 



If saveFilter = userString Then sameFilter = True 
saveFilter = userString 

SetStatus "This Week: " & userString, greyCOLOR 



'if not same form, erase and redraw the week schedule 
If Not sameFilter Then 
Me.Cls 

45 Set Info "Loading program information. . . ". GREY 

shpProg (0) .Visible = False 
selector .Visible ■ False 
in f ©Arrows " none " 
Dc Events 

SO 
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AppiyFiiter 
Malce3ispiay 
sameFilter = True 

5 End If 

Er.d Sub 

Sub Fonr._KeyDown (KeyCode As Integer. Shift As Integer) 
Din: index As Integer 
2lt?. n As Integer 
10 Select Case KeyCod© 

Case Asc I " Q' ) 

Er.d 
Case 3_3AC:< 

returnCode = 3ACK 
1S Me. Hide 

Case 3_HELP 

sameFilter = True 
InvoJceHelp 
Case 3_?REVIEW 

If inPreview Then 
20 inPreview « False 

popup. Visible « False 

Else 

inPreview * True 
End If 

2S Case B_RIGHT 

ChangeSel ( -Right " ) 
Case B_LEFT 

ChangeSel ( "Le£ f ) 
Case B_U? 

ChangeSel ( "Up" I 
30 Case 3_DOWN 

ChangeSel ("Down") 
Case B_S ELECT 

If Not filterData (currDay ) . EOF Then Deselect 
Case B_PAGEDOWN 

ChangeSel ("Next") 
Case 3_PACEUP 

ChangeSel < "Prior") 
Case B_FILTER 

'go back to fnnSelect to choose a new title 
returnCode = PICK 
40 Me. Hide 

Case 3_0 

returnCode » SHORTCUT 
Me. Hide 
End Select 
, _ If inPreview Then 

45 

■ DoPreview 
Else 

popup .Visible » False 
End If 
Zr.d Sub 

SO 
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rorx.load ( ) 

I? irr. i As Integer 

' set form colors and fonts 

Me . 3ac<Color » f ormCOLOR 

shpProg ( 0) . BackColor = BorderColor 

IblDay I 0 ). BackColor * backgroundCOLOR 

selector . 3orderColor = BorderColor 

dayLine t 0 > . 3orderColor 2 divideCOLOR 

lclTime(O) . ForeColor s slotCOLOR 

5 hps lot ( 0 ) . 3orderColor » slotCOLOR ^ 
mf oPanel . FontSize « mediumFONT 
Zf displayMode = " TV" Then 

lblDayO) .FontSize * smailFONT 

lblTime(O) .FontSize = smallFOK? 

popup . FontSize « mediumFONT 

Else 

lblDay< 0) .FontSize ■ largeFONT 
lblTime(O) .FontSize = largeFONT 
popup. FontSize « largeFONT 
End If 

'cover up the standard info box 

SizeAForm Me, 0, DispTop * DispHeight, DispLeft, dispWiit 

'set scale and size objects 

NCays = 7 

NSlots = 48 

dayWidth = 4 

IblHeight « 2 

mf oHeight * 5 

If displayMode = "TV" Then 

upArrow. Left = 3950 

downArrow. Left * 8950 

timeHeight = 2 

downArrow. top = 550 

upArrow.top * 150 

Else 

timeHeight « 1.5 
downArrow. top * 1525 
End If 

Me. Scale (0, 01- (NSlots * dayWidth. NTays * IblHeight - 2 
oheight) 
selector . BorderWidth ■ 1 
'place extended info panel 

SizeAControl inf oPanel , 0 , inroKeight . 0 . (Me . ScaieWidtr. ) 
info Panel . Caption = " " 
ir.fcPanel. Visible = True 
'place day labels along side 

S^eAContrcl IblDay(O). IblHeight * mf oHeight , IblHeight 
. r:r : = 1 Tc NDays 
Load IblDay(i) 

IblDay ( i ). Caption « DayStringti, " short " ) 
IblOay ( i ) . top = ii - 1) * IblHeight * infoKeight - 2 
IblDay < i !. Visible = True 
Next i 
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•pu: AM/?M labei across top 

;i:eACon:rol IblD&y ( C } , ir.f cHeight . - ir.eHeight . dayWidth. NSlots 
ibiDay(O) .Caption = "AM NOON PM* 

5 IbiDay(O) .Visible = True 

•put time labels across tcp 

SiteACor.trcl lblTime(C!, i IblDay i 0 i . Height ) ♦ infoHeight, timeHeight. 0. 2 
Tor i « 1 To NSlots \ 2 
Load IblTime ( i • 

. IblTime ( i > .Caption « TirneLabel ( DateAdd i " h" . (i - i). fa ice TODAY J } 
10 IbiTimetii .Left « 2 * i * 2 \ 

IblTimen ) .Visible = True 
Next i 
NProgs = 0 
sameFiIter = False 
;5 InputData 

"orn.Activace 
End Sub 

Sub info Arrows : direct As String) 

•show or hide arrcws in info box indicating presence of more programs at identical 
20 time 

Select Case direct 
Case "up- 
do vnArrcw . Visible * False 
upAr row. Visible « True 
Case "down* 

upArrcw . Visible = False 
downAr row. Visible a True 
Case "both" 

upArrow . Visible = True 
downAr row. Visible ■ True 
30 Case "hone" 

upArrow . Visible » False 
downAr row . Visible = False 
End Select 
End Sub 

35 

Sub Input Data i ) 
' part of form_lo*d 

opens the database and creates allData snapshots 

Dirr. D3 As database 
40 Dir. Re £ Snap As snapshot 

D-.t. i As Integer 

Set D3 « CpenDatabase ( TVDB » 

get reference. date and number of stations 
Set Re f Snap » DB . CreateSnapshot I " Reference " ; 
r.ef Snap . Findr irst "Name » * Date ' * 
re f Date = DateValue (Ref Snap ( "Data" : ) 
Re: Snap . FindFirst "Name = ' NStaticr.s ' " 

SO Set allDataiO) * D3 . CreateSnapshot : • ?r?crarr.s " ) 
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startTime = reflate 
TSSegin = 0 

TSEnd =r TSBegin + 48-1 
"or i = 1 To 7 

allData(O) .Filter = Overlap { TS3egir. * 48 • ;i - 1), TSEr.c - 48 
Set ailData(i) = allData { 0 ) . CreateSr.apshot ; ) 
Next i 

Sez ai 10a -a ( C ) = Nothing ' no longer need da- a all ccge'her 

Er.o Sub 



3-c MakeDispiay <> 
create schedule display on screen 
Zim i As Integer 'counter 
15 ^im d As Integer 'day 

"im TSlast As Integer 'last tir.e slot affected 
Sim F As snapshot 'convenience 

Him offset As Integer 'used twice: daylir.e offset & number of programs sharing a 
time slot 

20 

'draw horizontal day lines 
drawwidth * 2 

ForeColor - lblDay ( 0 I . BackColor 
offset * infoHeight ♦ 2 • timeHeight 
For i a 0 To NDays 

25 Line (0, offset * i * IblHeight ) - ( = 2 , offset * i • lblHeighti 

Next i 

'place program shapes 

offset = 0 'keep track of how full a particular time slot is 
-olorField ■ "Category" 'note: should this be "Type" instead? 
For d « 1 To NDays 
currDay = d 
TSlast = -1 
Set F = f iiterData (d) 
If Not F.SOF Then 
35 F. Mover irst 

Do While Not F . EOF 

If ?< "StartTS" ) » TSlast Then 
offset = offset * 1 
DrawProg offset, -1 

Else 

offset » C 

Position shpProg(O), " ( "StartTS " ) . F < " FinishTS " > 
2raw?rog offset, F { rolorField) Mod 9 
TSlast * F( "StartTS" ) 
End If 

45 F . MoveNext 

F . MoveFirsc 
End If 
:.'ext d 



SO 



.:e stuff 
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currjay = * 
While d o NDays 
5 If f il terData (d) . EOF Then 

d • d ♦ 1 

Else 

NProgs » 1 'just to rake sure it is xore than 0 
curr-ay = d 
d * NDays ♦ 1 

10 r-a 

Vv'er.c 

sr.? Prog < 3 ) . ZOrder 
selector . ZOrder 

If Not fil terData { currDay ) .EOF Then 
75 TScurrent = filterDaca ( currDay) i "ScartTS" ) 

DisplayProg 
ChangeSel "none- 
Er.d If 
End Sub 
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:c Position (shape As Control, start, finish) 
:csition a program shape 

Zim leftTS 

Zim rightTS 

Const smallGA? = .1 



convert to time slot scale 
leftTS = start - 46 * { cur r Day - 1) 
rightTS « finish - 48 • (currDay - 1) 
'set left and width 
"shape. -eft « dayWidth - leftTS 
30 shape. Width = rightTS - leftTS ♦ 1 - smallGAP 

cut off at beginning of day 
If shape. Left < dayWidth Then 

shape. Width = shape. Width - (dayWidth - shape. Left) 
shape. Left = dayWidth 

set top and height 
shape. Height ■ 2 - 2 • smallGAP 
shape. =.op * IblDay < currDay ). top * smallGAP 

End Sub 

40 Sue Sec Info <msg As String, Color) 

ever rice the global Setlnfc to write to my own info panel 
ir.f o?anel . 3acV.Color » Color 
ir.foPanel . Caption » msg 
End Sub 



SO 



' = = = - = = v;-:ZAV form code = = = = = = 

Option Explicit 

"schedule z f 5 weekdays at a particular time 
'uses time-slot guided navigation 

Zi-. allZata:6! As snapshot 'all data within time period 
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Dir. f ilterData ( 3 ) As snapshot 'a snapshot for each day in the view 
Dir. NDays As Integer 'number of days in display 

Si- NSlots As Integer 'number of rime slots in display 

Dir. NProgs As Integer 'number of programs in display 

Dm NStacicn As Integer 'number of stations in display 
Dm MaxStation As Integer 'total number of stations in database 
Dir. calorField As String 'the database field that determines item color 

'(the field should contain an integer? 
Dir. --Preview As Integer 'boolean 'true if preview should show 
Const sideGap = .05 'space at beginning and end of program 
Ccr.st topGAP s 4 'space btwr. time label and first program shape 
Dir. refDate 'reference date for data time slots 

Const lblHEIGHT * 40 'height of day and time labels (in 503 scale) 

Ccr.st MlNProgWidth ■ .2 'minimum width of a program, shape as fraction of 
;5 Dir. slctsPerDay As Integer 'number of slots allowed per day 

Dir. currDay As Integer 'number of current cay 

Dim startTime 'start day and time of display 
Dir. TSBegin As l*ong 'first time slot 
Dir. DSEnd As long 'last time slot 
Dir. TScurrent As Long 'current time slot 

Dir rowOffset 'distance between (tops of) rows in the schedule 



20 
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Sub ApplyFilter ( t 

'create data set of onpy TV programs that fit into query string filters iTV> 
25 'set number of stations and database field determining color 

Dim i As Integer 'counter 

If InStr ( filters (TV) , "Station") Then 
NStation » 10 

'note: need better mechanism for displaying favorite channels 
colorField = "Type- 
Else 

NStation = MaxStation 
colorFieic « "Category" 
End If 

35 to* i = 1 To NDays 

allData ( i ). Filter = filters(TV» 

Set filterDatati} * allData ( i ) . CreateSnapshot t ) 
Next i 
End Sub 
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ChangeSel (d As String) 

Dir current, firstMatch 'as database markers 

Dir. success As Integer * boolean 

Dir. s As Integer 'station 

Dir. TS As Long 'time slot 

Dir. F As snapshot 

Dir. aDay As Integer 

Dir. best As Integer 

current ■ f i 1 terData (currDay ) . 3ookmark 
Set F = f i IterData (currDay ) 
s - F! "Station" ) 
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TS = TScurrent 
a Day » currDay 
success » False 



If d « "Right* Then 

'check co iirjr.ediate right, same time slot 

F . KoveNext 

If Net F.EOF Then 

success = f < 'Szacion* ) = s And F • " StartTS " I « TS 
Er.d Z £ 

If Net success Then 
'check time slots to right 

shpSiot(T3 - TSBegir. - 1 * IcurrDay - 1) * slotsPerDay) .FillStyle 
ar.sparer.: f 

lb!Time*TS - TSBegir. - - * (currDay - 1) * slotsPerDay ). Backs tyle 
ar.sparer.t 

While aDay <- NDays And Ncc success 
While TS < TSEnd And Not success 
TS = TS * 1 

'check stations at and below current 

F.FindFirst Overlap :TS , TS) & ? And Station >= " & s 

If F.NoMatch Then 

•take the last station above current 

F.Fir.dLast Overlap (TS. TS) U "And Station < " & s 

success ■ Not F.NoMatch 

Else 

'save this match and check if stations above are clos 

success a True 

best = F( "Station") - s 

firstMatch « F . 3ookmark 

'check previous 

F . FmdPrevious Overlap (TS , TS) 
If F.NoMatch Then 

'no previous match, stick with first match 

F. Bookmark = firstMatch 

Else 

If s - "(•Station"') > best Then 
' first match was closer 
F. Bookmark = firstMatch 
End If 
End If 
End If 

Wend 

If Not success Then 

TSBegir. = TSBegin * 48 

TSEr.d = 753egin * slotsPerDay - 1 

TS = TSBegin - 1 

aDay « aDay * 1 

Set F « f ilterData (aDay i 
End If 

Wend 
End If 
Elself d = "Left" Then 

' check to irrr.ediate left, same time slot 
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F .MovePrevious 
If Not F.BOF Then 

success = F< "Station" > = s And F "FinishTS" ) = TS 
Er.d Z f 

If Net success Then 
'check previous time slots 

shpSlottTS - TSBegin * 1 * (currDay - D * slotsPerDay) . FillStyl* * 
1 * transparent 

IblTimefTS - TSBegin + 1 * icurrDay - 1 i • siocsPerDay) . BackStyle = 
C ' transparent 

While aDay >= 1 And Not success 'for each cay to ler - 

While TS > TSBegin And Net success 'look for previous 5i:: :r.:s da; 
TS = TS - 1 

F . FindFirsc Overlap ITS . TS) « - And Station >= - & 5::'si 
, 5 If F.NoMatch Then 

'none with station less than current, look tor first one dewr. 
F.FindLast CverlaplTS, TSt 
success a Not F.NoMatch 

Else 

success = True 
'mark this one and check up 
firstMatch » F. Bookmark 
best « F ( "Station" ) - s 

F . FindPrevious Overlap ( TS , TS) ' will be less than current 

stat ion 

2S If F.NoMatch Then 

'none lower, keep first match 
F . 3ookmark * firstMatch 

Else 

If s - F( -Station- ) > best Then 
•first match was closer 
30 F. Bookmark a firstMatch 

End If 
End If 
End If 

Wend 

55 If Not success Then 'try previous cay 

aDay « aDay - 1 
TSBegin » TSBegin - 48 
TSEnd « TSBegin ♦ slotsPerDay - 1 
TS * TSEnd ♦ 1 
Set F = filter Data ( aDay ) 
40 End If 

Wend 
End It 
Elself d » "Down- Then 
'move down vi thin time slot 
4$ "note: should we have option tc only stop at programs that _begm_ in current 

tine si of 

:with exception of first' tire slot in each day, cf course) 
F.Bockr.ark = current 

F . .- indNext i OverlaptTS. TSi i - And Station <> " & Stris) i )- 

success = Not F.NoMatch 
SO Elself d = "Up" Then 



55 



84 



EP 0 735 749 A2 



1 nove down within time slct 

T.cte: should we have opticn to only seep at programs that .begin, m cur 
-e slct? 

(with exception of first time slot in each day. of course) 
F . Bookmark = current 

F.FindPrevious ■ ! " t Overlap (TS,. TS} & ■ And Jtatior. <> " U Scr-.s 
success - Not F.NoXatch 
II self d = "Top* Then 

F . F incFirst Overlap :TS. TS) 
success * Not F.NoMatch 
Else! f d « -Bottom- Then 

F.FmdLasc Overlap [ TS , TS) 
success « Not F.NcMatch 
End If 

If success Then 
'update 

TScurrent = TS 
currDay = aDay 
DisplayProg 

El se 

'restore position in data 
filterData (currDay ). 3ookmark = current 
End If 

•restore other stuff 

TSBegin « DateDi f f ' "n" , refDate. (startTime ♦ currDay - D) \ 30 
TSEnd » TSBegin - slotsPerDay - 1 

shpSloc (TScurrent - TSBegin - 1 ♦ (currDay - 1) • slotsPerDay ) . FillStyie 
soi-d 

IblTime 'TScurrent - TS3egin * 1 - (currDay - 1) * slotsPerDay ). 3ackStyle 
opaque 

c Sub 

b Display Prog ( ) 

ighlight location of current program 
ut info for current program in info box 

Dim F As snapshot 

Dim msg As String 

Set F = filterData (currDay) 

highlight program 
shpProg ( 0) .Visible « False 
selector .Visible * False 

Pcsition shpProg(O), F("Start">, FCFmish"). F ( "Station" I 
;?lace Z , selector, shp?rog(C* 
snpProg : 0 ). Visible = True 
selector . Vis ible * True 

• set r.essage 

rnss = Sracier.ScrmgiF ( "Station" ) I 5, " - " & FCTitle") & " " 

-S5 - T.sg 4 ForrtatiFt "Start" ) , "h:rir. AM.'PM") 

-S5 = xsg * " to - k Format (F ! "Finish* ) , *h:mir. AJM.'PM": 

Set Info .-r.sg, Color ( F ( color Fie Id) Mod 9) 

id £uo 
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Sue Do Preview { j 

'Construct ar. appropriate preview message and display 
5 Dir. msg As String 

r.sg « 'Station: " & StationString ( f ilterData (currDay i ( "Station " ) > 
^sg « r.sg & Chr(13) & "Title: " & filterData (currDayi ; "Title- » * Chr < 12 ; 
r.sg « r.sg i CategoryString <( filterData < currDay i r "Type •)) , 
: fil terDa ta f currDay : ' "Category" ) ) ) 
10 r.sg\ = r.sg & Chr: 13) i "Time: " & Forrr.at •• filterData< currDay) < 'Start " ' . 'rr- z . yy 

r.;~ AM / PM " > 

msg = r.sg & ChrI13) i - to H & Fcrrcat ( filterData : currDay m "Finish" ■ . - h:mrr. 

AX PM" i 

;5 ' show popup with preview message 

popup. Caption = msg 

popup. Top = IblTimel 1) .Top ♦ 2 * lblTiir.e < 1 >. Height 
popup . Left = 2 

popup. Width « slotsPerDay * NDays - 3 
popup .Visible s True 
20 inPreview = True 

End Sub 

Sub DoSelect ( ) 

'set data for selection and go to TV 
2S userStacion - filterData < currDay* ( "Station" ) 

userStart 3 filterData < currDay i ( "Start " ) 
returnCode = TO TV 
Me. Hide 
Er.d Sub 

30 Sub Fcrr._Activate ( ■ 

Dim i As Integer 'counter 
Static saveFilter As String 



If saveFilter » filters { currDomain) Then sameFil ter = True 
saveFilter » f ilters ( currDomain) 

SetStatus "Evening TV: " & currFi Iter < TV) . greyCOLOR 
'note: "Evening TV* label would be variable 
If inPreview Then 

popup . Visible = False 
inPreview - False 
40 End If 

If newUser Then 

popup .Caption » "Press 'category' to change the kind of programs diplayec. 
popup .Visible s True 

'note: ought to make popup go away on timer as well as butter, press 
newUser * False 
End If 

If saneFilter Then 

' restore darkened tine-slot 
If TScurrent > 0 Then 

SO 
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shpSlot (TScurrer.t - TSBegir. - 1 * (currDay - I) * slotsPerDay > . F illStyle 

= ' sclid 

IblTimetTScurrent - TSBegir. - 1 * (currDay - 1) • slotsPerDay >. BackStyle 

= 1'soiic 

s.na j. f 

Else 

unload old program shapes and redo display 
SezZr.io "Loading program information...". GREY 
shpProg ( C }. Visible = False 
10 IblDayJC) .Visible = False 

lclTime(O) .Visible = False 
shpSlot (0) .Visible = False 
selector . Visible = False 
For i » 1 To KProgs 

Cnlcad s hp Prog ( i ) 
Next i 
ApplyFi Iter 
MakeD.splay 
sameFilter = True 
Er.a If 
20 End Sub 

Sub Fcrr._KeyDown ( KeyCcde As Integer, Shift: As Integer: 

'r.cte: always turn off the black slot before leaving, so it doesn't mess up 
later views 

Dir. Index As Integer 
Dim t. As Integer 
Select Case KeyCode 
Case Asc ( *Q" J 

End 
Case 3_BACK 

30 shpSlot (TScurrent - TSBegir. - *1 ♦ (currDay - 1! * slotsPerDay > . FillStyle = 

1 ' transparent 

lblTirr.e '.TScurrer.t - TSBegir. - 1 * (currDay - li • slotsPerDay i . BackStyle = 
0 * transparent 

returnCode = BACK 
Me. Hide 
Case 3..HELP 

sameFilter » True 
InvokeHelp 
Case B_?REVIEW 

If mPreview Then 
40 popup . Visible = False 

inPreview = False 

Else 

inPreview » True 
End If 
Case B_RIGHT 

If N'ct f i 1 terDa tat currDay 1 .EOF Then Char.geSei ! "Sight") 
Case B_LEFT 

If Not filterData t currDay) .EOF Then Char.geSei -"Left") 
Case 3_CP 

If Not filter Data ( currDay > .EOF Then Char.geSei ("Up") 
SO Case B_DOWN 
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If Not filterData icurrDay) .EOF Then ChangeSel ("Down") 
Case S_SELECT 

shpSloc (TScurrer.t - TSBegin * 1 - -currDay - 1 ) * slotsPerDay ) . sillS'V le = 
s 1 ' transparent 

lblTime (TScurrer.t - TSBegin * 1 * . currDay - 1) * slotsPerDay ) . BackSty le = 
•Z ' transparent 

If Not filterData (currDay ). EOF Then DoSelect 
Case 3_ PAGEDOWN 

If Not. filterData (currDay) . EOF Then ChangeSel ( " Bot trrr." ] 
10 Case B_?AGEU? 

If Not filterData (currDay) . ZOs Then ChangeSel ("Top": 
Case B_ FILTER 

shpSlot (TScurrent - TSBegin * 1 * (currDay - 1) • slots Per Day » . -illityle * 
1 ' transparent 

JS lblTime 'TScurrent - TSBegin * 1 * (currDay - 1) • slotsPerDay i . BackSty le 3 

C ' transparent 

returnCode = Filter 
Me. Hide 
Case B_0 

shpSlot (TScurrent - TSBegin - i * (currDay - 1) * slotsPerDay ). Fil IStyie = 
20 1 ■ transparent 

lblTime (TScurrent - TSBegin * 1 * (currDay - i: * slotsPerDay ). 3ackStyle « 
0 ' transparent 

returnCode » SHORTCUT 
Me. Hide 
2S End Select 

If inPreview Then v 
DoPreview 

Else 

popup . Visible ■ False 
End If 
30 End Sub 

Sub For-m_Load ( ) 

Dim d As Integer, i As Integer, n As Integer 'counters 
Dim t 'as time 
3S ' set form colors and fonts 

Me.BackColor * formCOLOR 
shpProg ( 0 ) . BackColor = BorderColor 
IblDay ( 0 ). BackColor = backgrcundCOLOP. 
selector . BorderColor = BorderColor 
dayLine ( 0 ). BorderColor = divideCCLOR 
40 lblTime ( C ) . ForeColor * slotCOLOR 

shpSlot ( C ). BcrderColor * slotCOLOR 
If displayMode « "TV Then 

IbiDay ( 0 ) . FcntSize = smallFON'T 

lblTime ( G ). FontSize » smallFON'T 

popup . FontSize = mediumFONT 

use 

IblDay(O) -FontSize • largeFONT 
IblTimetO) .FontSize * largeFONT 
popup. FontS i2e = largeFONT 
End If 

SO set scale and size objects 
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SizeAForrr. Me. DispTop. DispHeight. DispLefc. DispWidth 
Xe. Scale :0. 0)-<500, 500) 

S.zeACor.trol lblDay(O), 0, lblKEIGHT. 0. SCO 
SizeACcntroI lblTime(0>. lblKEIGHT. lblKEIGHT. 0, 50 

SizeAControl shpSlot(O), 2 • lblHEIGHT * .5 • topGAP. 500 - 2 • lblHEIGHT , 0, 5C 
SizeACor.trol popup, 250. 200. 250. 200 
selector . BorderWidth « 1 
cayLir.e(O) . Yl = 0 
cayLir.e(C) . V2 = 500 
'ir.it variables ; . 
sameFilter » False 
sameView * False 
inPreview ■ False 
NProgs a C 

NDays = 5 'five week days 

slotsPerDay « 6 'three hours. 6 half -hour slots 
NSlots « NDays * slotsPerDay 

startTime = fakeToday ♦ CVDate("7:CC PM"> 'time would be variable and set at 
activate 

startTime * DateAdd I "d" , 2 - Weekday : star tTime > . startTime) 'set startTime to 
20 y.snday<=2) 

'set time slot scale and place the permanent objects 
Me.ScaleWidth * NSlots 
IblTime(O) .Width = 1 
shpSlot (0) .Width = 1 
For i = 1 To NDays 

'place and caption day labels 
Load IblDay(i) 

SizeAControl lblDay(i), 0. lblHEIGHT. slotsPerDay • <i - 1>, slotsPerDay 
IblDay i i) .Caption » DayStringti * 1. "short") 
IblDayt i) .Visible = True . 
30 Next i 

Fcr d = 1 To NDays 

For i = 1 To slotsPerDay 

n » id - 1) * slotsPerDay ♦ i 
'place time slot dividers 
Load shpSlot(n) 
shpSlot (n) .Move n - 1 
shpSlct'n) .ZOrder 
shpSlot (n) .Visible = True 
* place time labels 
Load IblTirne ( n ) 
40 IblTirne (r.) .Move n - 1 

IblTimetn) .ZOrder 

t » DateAddCn*, 30 * (i - 1). startTime/ 
IblTirne (n) . Caption = TimeLabei t t ) 

'tine captions would be set at activate since they could change (when 
s arte View- false) 
45 shpSlot ( i l . FillStyle ■ 1 * transparent 

IblTirne l i > . BackStyle = 0 * transparent 
IblTimetn) .Visible * True 
Next i 

place day separators, but don't show yet 
so If a < OTays Then 
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Load dayLine (d) 

dayLine (d) .XI » d * slotsPerDay 
dayLine(d) . X2 = d * slotsPerDay 
End If 
Next c 
InputData 
Form_Ac tivate 
same View = True 
Zr.d Sub 

Sub Input Data () 
' part of form. load 

'opens the database and creates aliData snapshots 

Dim DB As database 

Dim Re f Snap As snapshot 

Dim i As Integer 

Set DB = OpenDatabase (TVDB) 

'assumes data already sorted by station, start 



'get reference date and number of stations 
Set RefSnap = DB .CreateSnapshot { "Reference" ) 
RefSnap.FindFirst •Nar.e = 'Date* - 
refDate = Da teValue (RefSnap ( "Data* ) ) 
2s RefSnap.FindFirst 'Name * 'NStations'" 

MaxStation ■ Val (RefSnap ( "Data" ) ) 

Set allData(Ci = DB . CreateSnapshot ( # Programs " ) 



'create snapshots of all programs for each weekday at fixed tine 

time would be variable and these wculd have to be created at activate 
TS3egin a DateDi f f ( "n" . refDate, startTime) \ 30 
TSEnd * TSBegir. ♦ slotsPerDay - 1 
"or i = 1 To 5 

allData<0» .Filter = Overlap (TSBegin * 48 • (i - IK TSEnd - 48 • ;i - i: ) 
'48 time slots/day 

Set allData(i) = aliData ( 0 ) . CreateSnapshot ( ) 
Next i 

Set aliData (C) = Nothing 'won't be needing everything since time is f.xec 
End Sub 



Sub MakeDi3play t) 
'create the visual schedule of programs from the filtered data 
Dim d As Integer 'day 
Dim z As Integer 'counter 
Dim r As snapshot 'cenvenience 
45 Dim hasProgs As Integer 'remember the first day that has programs in it 

' set times showing 
If Mot same View Then 

"would change time labeis here 
Zr.d I i 

50 
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'place program shapes 
hasProgs = G 

c = 0 'init count of shpProgs 
5 Or. Error GoTo ErrorKandler 'if we run out of shpProgs to allocate 

For d ■ 1 To NDays 

currDay * d 

Set F = f ilterData(d) 

■create a shape control 'for each TV program in .the data ^ 
If Not ? . EOF Then 
10 F.MoveFirst 

Do While Not F . EOF 

Load shpProgtc ♦ X) 

c = c + 1 'increment only after allocate succeeds 
shpProg(c) .BackColor * Color { F { color Fie Id) Mod 9» 
Position shpProg(c) . FrStarf), FCFinish"), F(-Station-) 
shpPr og ( c ) . ZOrder 
shpProg(c) .Visible * True 
F.MoveNext 

Loop 

F.MoveFirst 

20 If hasProgs = D Then hasProgs = d 'remember the first day with programs 

:n 

End If 

Next: d 

Cn Error GoTo 0 'quit trapping errors internally 

make day lines visible on top 
For d * 1 To NDays - 1 
dayLine(d) .ZOrder 
dayLine(d) .Visible = True 
Nex- d 

30 

• initialize stuff 
NProgs = c 
currDay * hasProgs 
shpProg (01. ZOrder 
3S selector . ZOrder 

If currDay > C Then 

'set time slot begin and end numbers for current day 

TSBegin « DateDif f t -n* . refDate. startTirr.e) \ 30 * 48 * (currDay - 1) 
TSEnd = TSBegin <• slotsPerDay - 1 
TScurrent = TSBegin 
40 set F » f ilterData t currDay ) 

Do While TScurrent <* TSEnd 

F.FindFirst Over lap (TScurrent . TScurrent) 
If Not F.NoMatch Then 
DisplayProg 
4S Exit Do 

End If 

TScurrent ■ TScurrent + 1 

-oop 

Else 

TSBegin = DateDif f ( "n" . refDate, startTime) \ 30 
50 TSEr.d - TSBegin ♦ siotsPerDay - 1 
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TScurrenc » TSBegin 
currDay = 1 
End If 

shpSlot (TScurrer.t - TSBegin ♦ 1 
' solid 

lblTime (TScurrent - TSBegin * 1 
' opaque 

Zxiz Sub 



(currDay - 1) 
(currDay - 1) 



* slotsPerDay) .FillStyle 

* slotsPerDay i . BackStyle 



ErrorHar.dler : 

If Err * 3 42 Then ^ 

'ran out of room to allocate program shapes, quit drawing 
Resume MoveOn 

Else 

Dim msg 

msg = Error & Chr(13» & "Resur.e or Cancel?" 
msg * InputBox (msg , "Error Ccrrec: ion * . "Resume " ) 
If msg » " " Then Stop 
Resume MoveOn 
End If 
End Sub 
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Sub Position (shape As Control, start, finish, station* 
•position a program shape for display 

Dim. relatively relativeW. dayStart 

Dim edge 

'convert a day/time to position in NSlot scale 

dayStart » startTime ♦ currDay - 1 

relaciveL = (start - dayStart) * 48 

relativeW = (finish, - dayStart* * 48 - relativeL 

'clip shapes off at day boundaries 

If relativeL < 0 Then 

relativeW = relativeW * relativeL 

relativeL ~ 0 
End If 

If relativeW * relativeL > slotsPerDay Then relativeW * slotsPerDay 

'set left and width of shape 
edge s (currDay - 1) • slotsPerDay 
shape. Left « relativeL - edge ♦ sideGap 
shape. Width ■ relativeW - 2 * sideGap 

'enforce minimum width so program is visible 

If shape. Width < MINProgWicth Then shape. Width = MINProgWidth 
'set top according to station 

'note: this scheme only works because stations are named l..n 
rcwCffset » ((500 - 2 * lblKEIGHT - shpProg ( C ). Height ) / NStation) 
shape. Tcp » shpSlot ( 0 ) . Top ♦ topGAP ♦ (station - 1) • rowOffset 
End Sub 
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Thus, it will now be understood that there has been disclosed a method and apparatus of finding and selecting a 
program to view from a large schedule of TV programs. While the invention has been particularly illustrated and de- 
scribed with reference to preferred embodiments thereof, it will be understood by those skilled in the art that various 
changes in form, details, and applications may be made therein. For example, color coding of the individual items of 
the reduced representations and of the various entries in the various grid displays could be used to assist the viewer 
in making rapid program selections. Another example is that it is easily within the capabilities of this art to modify a TV 
set by integrating the set top box according to the present invention into it. It is accordingly intended that the appended 
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claims shall cover all such changes in form, details and applications which do not depart from the true spirit and scope 
of the invention. 

Claims 

1. Apparatus for selecting an item from a group thereof in a system having display means and interactive movable 
pointing means for specifying a location in the display means and making a selection at a specified location, the 
apparatus comprising: 

filtration means including subgroup specifiers in the display means and responsive to selection of a subgroup 
specifier by the pointing means for filtering the group to produce the subgroup specified by the selected sub- 
group specifier; 

means for displaying representations of group items belonging to at least a portion of the subgroup in the 
display means; and 

group item selection means for selecting a group item by selecting the representation thereof in the display 
in response to the pointing means. 

2. The apparatus set forth in claim 1 wherein: 

the pointing means need only be movable from one representation to an adjacent representation. 

3. The apparatus set forth in claim 1 wherein: 

the means for displaying the representations comprises: 

first means for displaying the representations in a single dimension; and 

second means for displaying the representations in two dimensions. 

4. The apparatus set forth in claim 1 further comprising: 

means for displaying a reduced representation of the entire subgroup and an indication in the reduced rep- 
resentation of the portion of the group being presently displayed by the display means. 

5. The apparatus set forth in claim 4 wherein said reduced representation is two dimensional. 

6. The apparatus set forth in claim 5, wherein said interactive movable pointing means includes a remote control 
having: 

a first pair of buttons to control changes in location in the display in a first direction: and 
a second pair of buttons to control changes in location in the display in a second direction. 

7. The apparatus set forth in claim 4 wherein said reduced representation is a two dimensional representation of a 
three dimensional representation, the third dimension being location within a logical stack of items having at least 
one common property. 

8. The apparatus set forth in claim 7 wherein each item of a logical stack have viewing timeslot as one common 
property. 

9. A method comprising the steps of: 

receiving program schedule data by a set top box via a same information conductor that conducts program 
information to the set top box: 

filtering said program schedule data in RAM within said set top box; 

said set top box showing a first interactive display on a TV connected thereto presenting a plurality of choices 
for filtering said program schedule data to a viewer; 

in response to an interactive selection by said viewer, filtering said program schedule data into a first subgroup 
of program schedule data; 

also in response to an interactive selection by said viewer, said set top box showing a second interactive 

display on said TV having a second plurality of choices for filtering said program schedule data: 

in response to a second interactive selection by said viewer, filtering said first subgroup into a second subgroup: 
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and 

also in response to a second interactive selection by said viewer, said set top box showing a third interactive 
display on said TV having a representation of each program item of said second subgroup. 

10. The method of claim 9, wherein said receiving program schedule data step further comprises the steps of 

receiving a first portion of said program schedule data via said set top box; and 
receiving a second portion of said program schedule data at a later non -contiguous time. 

11. The method of claim 9 t further comprising the step of: 

in response to an interactive highlighting of a representation of a program item of said second subgroup, 
displaying a title thereof. 

12. The method of claim 11 , further comprising the step of: 

in response to an actuation of a select button of a remote control, displaying a preview of said highlighted 
program. 

13. The method of claim 1 2, further comprising the step of: 

in response to a second actuation of said select button of said remote control, switching said set top box to 
display a TV program corresponding to said highlighted representation. 

14. The method of claim 1 2, further comprising the step of: 

in response to a second actuation of said select button of said remote control, storing a command to switch 
said set top box to display a TV program corresponding to said highlighted representation in when that TV program 
begins. 

15. A method comprising the steps of: 

receiving program schedule data for at least 300 individual channels for a time period of at least a week: 
storing said program schedule data in local memory for rapid sorting and retrieval in a database format; 
filtering the program schedule data in response to interactive user inputs into a subgroup of the program 
schedule data; 

displaying the subgroup of the program schedule data for the user's review; and 

interactively selecting a program from the subgroup of program schedule data for viewing on a TV screen. 

16. A method for choosing a desired program from a large schedule of programs whose data is stored in a local 
memory, comprising the steps of: 

displaying a vertically cascaded group of cards with each card representing a program of a particular time and 
channel; 

displaying a selection window located around a subgroup of said group of cards; 

displaying a two-dimensional grid adjacent to said vertically cascaded group of cards in which said subgroup 
of the programs represented by said vertically cascaded group of cards are shown in greater detail; 
displaying a first active area within said selection window highlighting one of said subgroup of programs; 
displaying a second active area within said two-dimensional grid, said second active area being located around 
and highlighting greater details of the program highlighted in said first active area; 

moving said first active area in a vertical direction in response to vertical direction arrows to a viewer's input 
of a remote control; and 

selecting a desired program by moving said active area to said desired program and actuating a select button 
until said set top box makes said selection. 

17. The method according to claim 16, further comprising the steps of 

after said active area is moved one location outside of said selection window by inputs from said viewer, 
moving said selection window to a contiguous subgroup to which said active area has moved. 

18. Apparatus for selecting an item from a group thereof in a system having display means and interactive movable 
pointing means for specifying a location in the display means and making a selection at a specified location, the 
apparatus comprising: 
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filtration means including subgroup specifiers in the display means and responsive to selection of a subgroup 
specifier by the pointing means for filtering the group to produce the subgroup specified by the selected sub- 
group specifier; 

means for displaying representations of group items belonging to the subgroup in the display means; 
s group item selection means for selecting a group item by selecting the representation thereof in the display 

in response to the pointing means: and 

means for displaying a reduced representation of the entire subgroup and an indication in the reduced repre- 
sentation of the portion of the group being presently displayed by the display means: 

said reduced representation displaying means displaying a two dimensional representation of a three dimen- 
10 sional representation, a third dimension being represented as a logical stack of items having at least one 

common property. 

1 9. The apparatus set forth in claim 8 or 1 8, wherein said interactive movable pointing means includes a remote control 
having: 

15 

a first pair of buttons to control changes in location in the display in a first direction: and 

a second pair of buttons to control changes in location in the display in a second direction: and 

a third pair of buttons to control changes in location within the logical stack. 
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